BASIC PASO A PASO 

inicíate en la 
programación con 
nosotros 



PRtMMS 



o> 



Misión 'Audaz 
Reloj 

Halcón Callejero 
MadJumper 
B Señor de los anillos 



TOdOS COn TEST DE LISTADOS 



nuevos usuarios 



MSX CLUB DE 



Nueva sección de compras por correo 



Deus ex Machina 

¿Sólo un juego? 



1 



Ganador del 



M.SX ly 2 
AMSTRAD 



'TE DESAFIAMOS • 




■i 



Conoce las reglas: 30.000$ por bala. 



VER ACBUZ 



¡ACEPTA EL RETO! 



WAR CHESS 



«iÉI 



ítivo de la máquina utili 
i de cursor. 'COPV para 
'EHTEK' para terwinar. 



VFIAM0S 



DESAFIAMOS TU IMAGINACION, TU LOGICA, TU ESPIRITU DE 
AVENTURA. A TU JOYSTICK. TE DESAFIAMOS A PASARLO 
BIEN ¡A LO GRANDE! ¡A TOPE CON TU ORDENADOR! 
TE PRESENTAMOS LOS MAS ALUCINANTES JUEGOS. 
SUPERPROGRAMAS. SUPER: DESAFIANTES, INTRIGANTES, 
LLENOS DE ESTRATEGIA PARA QUE USES A FONDO TU IMAGI- 
NACION Y DEMUESTRES TU HABILIDAD E INTELIGENCIA. TE 
PROPONEMOS HORAS DE DIVERSION SEGURA. 
¿HASTA QUE HORA DE LA MADRUGADA RESISTIRAS? 

¡ACEP 

CUANDO LA LEYENDA SE CONVIRTIO HISTORIA 





— : 



¡¡NOVEDAD!! 




EL CASO VERACRUZ/WAR CHESS /THE MOST AMAZING MEMORY GAMEI MANDRAGORA /LAS VEGAS /EL GNOMO FED0R/3D MAGIC PIN BALL/SKATE DRAGON 



INFOCRAMES 



Pedidos: Tel. 253 74 00 



Calle Valencia. 85 - 08029 BARCELONA • Télex- 54554 DLGC 
Teléfonos 253 86 93 - 253 89 09 253 90 45 - 253 74 00 



JudicBít 



ATREVETE SSS UTILIDADES 

MAS PRACTICAS PARA TU MSX 

AAa 
IDEA 





oner de una sensacional calculadora residente 
en tu MSX, a tu alcance en cualquier instante, con sólo 
tocar un tecla. Un reloj alarma programable. 

Copiar por impresora las pantallas de tus programas. 
Crear fantásticos efectos de animación. Disponer 
formidables editores de sprites y avanzadas 
instrucciones para su manejo. ¡¡IMAGINA!! 
Consultar un completo prontuario de tu 

BASIC MSX interactivamente... sólo con 
conectar uno de nuestros programas y 
¡a funcionar! ¡ASI DE FACIL! 




>UPER SPRITES 

'ermite aumentar la capacidad de 
jestión y edición de nuestro MSX. Po- 
ente editor de formas de distintos tama- 
ios y colores, pudiendo ser salvadas o car- 
iadas desde cualquier otro programa, permi- 
iendo el control de velocidad, orientación y 
:ambio de formas de sprites. 

>IDE PACK 

'ermite acceder a múltiples funciones desde cual- 
iuier programa dada su transparencia. Entre otras 
ios proporciona una potente calculadora científi- 
:a, reloj alarma programable, copia de pantallas 
)or impresora... SIDE PACK será un inseparable 
le tu ordenador. 




La más potente calcula- 
dora científica que puedes comprar para 
tu ordenador. Programa pensado para 
todas aquellas personas que requieran 
un potente soporte matemático, rápido 
y sencillo de usar. 



\ IDEA TEXT 

Procesador de textos de fácil ma 
nejo. Máxima potencia de trabajo. 
42 K libres de Memoria. EDITOR de 
página entera con control total de már 
genes, identaciones, centrado, espacios, 
encabezados, pies de página, movimiento e 
inserción de bloques, etc. Trabaja con cualquier 
impresora. Compatible con IDEA BASE y DIM 
CALC. Permite salvar en cinta o disco. 

IDEA BASE 

Impresión de etiquetas y listados. 42 K de me- 
moria libre de trabajo. Ordenación de registros 
Menús conversacionales e interactivos. 
Puede salvar o grabar en cinta o disco. 
Es compatible con IDEA TEXT y DIM CALC. 



NUESTRO DEPARTAMENTO 

de M.C. está a su disposición 

Consúltenos: 
Tel. 253 74 00 



Pedidos: 254 5128 



* Delegados y distribuidores 
en todo el país 



A A 

fr 



IDEALOGIC 



c/. Valencia, 85 — 08029 Barcelona 
Tel. 253 74 00 - 253 90 45 




Perdido en un laberinto de 
256 habitaciones lucha en con- 
tra del tiempo y las radiaciones 
letales para teleportarte a 
lugar seguro. También incluido 
en esta cinta un único y fácil 
de utilizar, sistema de constru- 
cción de laberintos, que te 
permitirá corregir el existente 
o crear otros nuevos. 

MSX 

COMMODORE 




La tercera de la serie de aven- 
turas Magic Knight, se encon- 
tró a sí mismo transportado 
al siglo 25 abordo de la nave 
estelar PISCIS. El juego utili- 
za un sistema mejorado de 
animación, que fue utilizado 
por primera vez en Spellbound. 
¿Será éste el fin de Magic 
Knight?. 

SERIE M.A.D.: P.V.P. 1.100 PTAS. 



FORMULA 1 

El juego de competición de 
mayor realismo, con los diez 
circuitos más famosos; 
SILVERSTONE, MONACO, 
MONZA...etc. 

¡3,2, 1... Adelantel 



SPEED KIIMG 

El juego de carreras de Moto- 
cicletas con la emocionante 
acción de correr rueda con 
rueda contra otros 19 pilotos 
|Ponte el casco y vive la inol 
vídabJe aventura de las motos 
de altas prestaciones compi- 




SPACE WALK 

Eres un astronauta al mando 
de la Lanzadora Espacial. 
Desde tu base en la luna vigilas 
los satélites .descarriados y 
tienes que recuperarlos. Tra- 
baja por la superficie de la luna 
y cuando sea necesario utiliza 
el JET PAC K para propulsarte 
al satehte. 

Licencia exclusiva para ESPAÑA ORO SOFT 
Fundadores, 3 - 28028 MADRID 
Tek. 255 45 00/09 



Editorial 



FELIZ AÑO NUEVO 



Con este ejemplar que tenéis en 
vuestras manos entramos en el 
tercer año. El tiempo transcurrido 
nos permite constatar que hemos 
crecido juntos a vosotros y gracias 
a vosotros, fieles lectores. No es 
sino a vuestro apoyo constante y 
a la entrañable relación que hemos 
establecido, que esta revista se 
mantiene en los altos índices de 
venta dentro del sector MSX. 
También es gracias a vosotros que 
nos hemos sentido motivados a 
mejorar día a día la calidad de 
nuestros artículos, respondiendo 
a las necesidades del usuario ya 
veterano, sin olvidar a los 
novatos. 

Al iniciar el Nuevo Año queremos 
comentar que a partir de este 
número MSX CLUB costará 225 
ts. más, debido al incremento de 
os costos de papel, impresión y 
otros gastos estructurales. De 
todos modos, siempre bajo la 
óptica de estar al alcance de todos, 
no nos quedamos con que hay que 
aumentar el precio. También 
aumentamos las páginas y la 
información, a la vez que 
profundizamos en temas que el 
mismo usuario va descubriendo a 
medida que usa su aparato. 
A la hora de hacer balance nos 
sentimos satisfechos y como 
nobleza obliga, hemos querido 
explicar las razones que nos 
impulsan al incremento y que no 
sólo nos afectan a nosotros como 
podréis comprobar en el quiosco. 



r 
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¡FELIZ AÑO NUEVO! 



MANHATTAN TRANSFER, S.A. 
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Año III - N.° 24 - Enero 1987 - Sale el día 1 de cada mes. 
P.V.P. 225 Ptas. (Inc. IVA y sobretasa aérea Canarias). 



/ LINEA DIRECTA 

L Respondemos a las in- 
U quietudes de nuestros 
lectores. 
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TABLON DE ANUNCIOS 

Dos inserciones gratui- 
tas para compra, venta e 
intercambio de software 
original. 
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1 Primera entrega del cur- 
Lk so de BASIC Manhattan 
Transfer. 
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PROGRAMAS 

13 El halcón callejero 
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a (\ COMO COMPRAR UN 
/ U ORDENADOR 
m / Recomendaciones para 
futuros usuarios: 




* * MONITOR AL DIA 
\1 Las novedades más inte- 
Jm resantes dentro del 
mundo del MSX. 



38 



DEUX EX MACHINA 

Algo más que un juego 
de ordenador. 



42 



OTROS LENGUAJES: 
PASCAL 

El BASIC no es el fin del 
ordenador. 



msxclub 



es un producto S.T.R. Asociados para MANHATTAN TRANSFER, S.A. 
Director Editorial: Antonio Tello Salvatierra. 
Director Ejecutivo: Birgitta Sandberg. 

Redacción: Willy Miragall, Silvestre Fernández, Claudia T. Helbling,. Dpto. Informática: Juan Carlos 

González. 

Colaboradores: Marcelo Tello, J. A. Castillo Rivas. Federico Alonso, Jaumc Fargas. Diseño y Maquetación: 
Félix Llanos, Luis Martínez, llustrasciones: Carlos Rubio. Foto portada: Fototeca, IMAGEBANK 
Dpto. Suscripciones: Silvia Soler. Redacción, Administración y Publicidad: Roca i Batlle, 10-12. 
08023 Barcelona. Tel. (93) 211 22 56. Distribuye: GME, S.A. Pza. de castiUa 3. 15 ° E. 2, 28046 Madrid 
Tel. (91) 315 09 42. Fotomecánica: UNGRAF, S.A Imprime: GREFOL, S.A. 
Todo el material editado es propiedad exclusiva de MANHATTAN TRANSFER, S.A. Está prohibida 
la reproducción total o parcial por cualquier medio de esta publicación sin la 





i public 

_ 



Línea directa 




¿Puedo conectar una cá- 
mara de vídeo al ordenador 
para tomar imágenes del ex- 
terior? 

¿ Vale cualquier MO- 
DÉM para los MSX? 
¿Cómo se utiliza? 

Antonio M. Vallejos Soto 
ALBACETE 



Si tienes un MSX de pri- 
mera generación, necesitas 
un interfaz adecuado que, 
por lo que nosotros sabemos, 
no se comercializa todavía en 
España. Algunos modelos de 
MSX de la segunda genera- 
ción vienen dotados con una 
unidad de digitalización de 
vídeo, por lo que la conexión 
de la cámara de vídeo es di- 
recta. 




g'TS DE INFORMACION 



Cada mes reábimos un 
gran número de cartas de lec- 
tores que nos exponen sus 
problemas con determinados 
programas. Resulta decepcio- 
nante que, en la mayoría de 
los casos se trate de pequeños 
errores de transcripción de 
los programas. Nos encontra- 
mos muchas veces con letras 
cambiadas, confundidas u 
omitidas, por lo que os inser- 

fiZnAi serie , de p VHTOS 

i i j en los 4 ue hem °s 
localizado un mayor número 
de erratas. 

- La instrucción más con- 
ectiva es, sin duda alguna el 
macrocomando PLA Y, segui- 
do muy de cerca por DRA W 
En numerosas ocasiones los 
errores de los programas se 
deben simplemente a confun- 
dir la l (ele) con el 1 (uno), la 
u ™ n lo v la o con el cero 
W), etc. Os instamos a que 
verifiquéis cuidadosamente 
este tipo de líneas. 



- Otra instrucción sita en 
e ¿ l J?i marés & errores es 
rUKb, en que, caso de equi- 
vocación en los códigos que lo 
siguen pueden provocar un 
irremisible CRACK de pro- 
grama. 

- El error I LLEGA L 
FüNCnON CALL (llama- 
da ilegal a una función) tiene 
su causa en muchas ocasio- 
nes, en una línea diferente a 
aquella en la que aparece el 
6rr j r ' Conviene pues, revisar 
todas las líneas que utilizan 
las mismas variables, o las lí- 

ITaR AT ? 9 ' a ? arece a kún 
KhAD en la línea del error. 

- P ero, sobre todo, e insis- 
^ ™ ^ utilizad el 
TEST DE LISTADOS, ya 
que es una forma segura de 
localizar los errores en vues- 
tros programas. Os recorda- 
rá r^ el P ro & ra ™« TEST 
DE LISTADOS apareció en 
el numero 7 de nuestra revis- 
ta. 



Sí, vale cualquier MO- 
DEM (en realidad supongo 
que te refieres a acopladores 
acústicos) para los MSX. Lo 
único que necesitas es un in- 
terfaz RS-232, al que se pue- 
den acoplar todos los «MO- 
DEM» del mercado. El cómo 
utilizarlo es fácil, ya que el in- 
terfaz RS-232 incorpora un 
programa de comunicacio- 
nes, que es el que te permitirá 
realizar las trasmisiones. 



BEE CARD Y SOFT CARD: 

Les rogaría me concreta- 
sen la diferencia existente 
entre los adaptadores de tar- 
jetas BEE CARD y SOFT 
CARD. 

Asimismo, si ustedes co- 
mercializan las tarjetas BEE 
CARD de escritura-lectura y 
el precio de las mismas. 
Manuel Merino Alonso 
OVIEDO 

La diferencia es meramen- 
te de conectores. El funciona- 
miento interno de las tarjetas 
BEE CARD y de las SOFT 
CARD es muy similar, lo que 
hace que, prácticamente, y a 
la hora de hacer funcionar un 
programa contenido en una 
tarjeta, no exista ninguna di- 
ferencia apreciable entre am- 
bos sistemas. 

El problema, y volvemos a 
caer en el conocido problema 
de la incompatibilidad, es 
que las tarjetas BEE CARD 



no pueden conectarse a un 
adaptador SOFT CARD, ni a 
la inversa, lo que provoca que 
los programas aparecidos en 
uno de los formatos no fun- 
cionen con los adaptadores 
del otro formato. 

La elección de un sistema 
u otro debe hacerse, pues, en 
razón al software existente 
en cada uno de los sistemas. 

Pueden servirte además 
otros criterios para elegir un 
sistetma u otro: 

-El sistema BEE CARD 
está ligeramente más avanza- 
do, existiendo en la actuali- 
dad tarjetas de escritura-lec- 
tura, aunque todavía no se 
comercializan en España. 

-El sistema SOFT CARD 
está siendo desarrollado en 
Gran Bretaña. La proximi- 
dad geográfica y de mercados 
hará que todas las posibles 
novedades aparezcan antes 
que sus homologas en forma- 
to BEE CARD, proveniente 
del Japón. 




¿Cómo puedo evitar que 
alguien liste mis programas? 
¿Se pueden eliminar ins- 
trucciones del BASIC? ¿Y 
añadir nuevas? 

Florentino Ramírez 
LA CORUÑA 

Tus tres preguntas están 
muy relacionadas, y son muy 
interesantes; así que vamos a 
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tratar de responderte con de- 
tenimiento. 

Eliminar instrucciones del 
BASIC resulta una tarea muy 
sencilla, ya que la mayoría de 
ellas están parcheadas. Esto 
quiere decir que no toda la 
instrucción se encuentra en la 
ROM, y que tienen, por tan- 
to, un pequeño fragmento en 
la memoria RAM de usuario. 
Modificando adecuadamente 
estos parches, no sólo pode- 
mos eliminar las instruccio- 
nes, sino hacer que hagan'lo 
que queramos. Por ejemplo 
que se apague el ordenador al 
intentar hacer LIST. Eso es lo 
que haremos ahora. 

El parche de la instrucción 
LIST se encuentra en la direc- 
ción &HFF89. Para hacer 
que haga un RESET (apagar 
el ordenador) inserta las si- 
guientes líneas al comienzo 
de tus programas: 
POKE &HFF89,&HC3 
POKE &HFF8A,0 
POKE &HFF8B,0 

Haz RUN a tu programa 
tras haber copiado estas lí- 
neas e intenta hacer LIST. 

Sobre la otra parte de tu 
pregunta, si se podían añadir 
instrucciones al BASIC. Qué 
mejor ejemplo que un ejem- 
plo práctico. En los números 
21 y 22 deMSX CLUB in- 
cluimos una interesantísima 
amp liación del BASIC, per- 
mitiendo hasta 35 pantallas 
entre texto, gráficos, etc. 

Espero que hayan quedado 
satisfechas tus preguntas al 
respecto. 



DESAPARICION DE 
PROGRAMAS 

He jugado en repetidas 
ocasiones sin ningún pro- 
blema con el programa 
STAR RUNNER; pero las 
dos últimas veces que he in- 
tentado cargar el juego me 
ha sido imposible, saliendo 
mensajes de error como 
«Direct statement in file» o 
«Line buffer overflow» y no 
siempre salen en el mismo 
sitio. 

Enrique Muñoz Martínez 
CORDOBA 

En numerosas ocasiones 
los programas desaparecen de 




las cintas en que han sido gra- 
bados, o bien aparecen erro- 
res que en un principio no 
aparecían. Esto es debido a 
que la grabación de los datos 
sobre un soporte magnético 
( cinta o disco) puede desapa- 
recer si sometemos a éste a un 
campo magnético. En general 
existe la creencia de que sólo 
un campo magnético intenso 
puede llegar a borrar los da- 
tos de un cassette o disco; 
pero esto no es así. La exposi- 
ción prolongada a dosis de 
magnetismo débiles puede 
provocar el borrado progresi- 
vo de los datos, llegándose a 
un punto en que el ordenador 
ya no reconoce lo que hay gra- 
bado en la cinta. Recomenda- 
mos, por tanto, que guardéis 
vuestras cintas y discos a una 
distancia prudencial de cual- 

Íiuier fuente de radiación: te- 
evisores, electrodomésticos, 
bafles, imanes, etc. 

El borrado progresivo de 
las cintas también puede ser 
debido a que el cabezal del 
cassette en que lee los progra- 
mas se ensucie, por lo que te 
aconsejo que lo Limpies cuida- 
dosamente y ajustes el azi- 
mut. 

Por lo tanto cabe un espe- 
cial cuidado al almacenar 
vuestras cintas con progra- 
mas, y al utilizar los aparatos 
de cassette. 



ATENCION LECTORES 




Este es un llamado a los lectores que nos han solicitado 
cassettes y libros y que por algún error en las señas domicia- 
liarias sus pedidos nos han sido devueltos por correo. Asi- 
mismo otros lectores que han remitido sus giros y no han es- 
pecificado qué es lo que solicitaban o bien no daban su do- 
micilio. 



Sánchez, Luis César 
Robles, Feo. José 

■ García, Ignacio 

■ Rodríguez, José María 

- Gallego, Purificación 

- López, Miguel 

- Ramos, Enrique 

- Iglesias, Juan 
Valle, Oscar 

- Llambrich, Josep M. a 

- Delgado, Fermín 

- Soto, Manuel 

- Sosa, Domingo 
-Costa, José 

- Aguilar, Antonio 

- Casarejos, Miguel 

- Clemente, Rafael 

- Alcantud, Abelardo 

- Permanyer,JoséM. a 



Pérez, José M. a 

■ Campillo, Bernardo 

■ Cristobalena, Isidoro 

• Ferreres, José Luis 

• Sáez, Alberto 

- Hernández, Alberto 

■ Clavell, Josep Miguel 

- Molina, Arturo 

- Contell, Pilar 

- Arguelles, Juan A. 

- Caiatayud, Josefina 

- Orellana, Jesús 

- González, Juan Carlos 

- Bisabarros, Vicente 

- Cámara, Andrés 

- Barros, Felipe 

- Araujo, Alvaro de 

- Beliu, Pedro 



- Soria 

- La Barca Fda. 

- Santander 

- Hellín 

- Bilbao 

- Barcelona 

- Almería 

- Llagostera 

- Barcelona 

- Valencia 

- Algeciras 

- Madrid 

- Las Palmas 

- Mallorca 

- Hospitalet 

- Vigo 

- Alicante 

- Bilbao 

- Barcelona 

- Barcelona 

- Cartagena 

- Sgo. de Compostela 

- Vinaroz 
Segur de Calafell 

- Sabadell 



- Alicante 

- Ibiza 

- Gijón 

- L'Alcudia 

- Alcalá de Henares 

- Villalonga 

- Lasarte 

- Coraleda 
-Vigo 

- Elcaldes-Engordany (Andorra) 

- Alcantarilla 



A todos estos lectores les rogamos se pongan en contacto 
telefónico o por cualquier otro medio con nosotros a fin dé 
que puedan recibir cuanto antes los cassettes, libros o revis- 
tas solicitados. 
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CON GARANTIA 

/MANHATTAN TRANSFERSA 



Línea directa 




PASAR DE SPECTRUM A MSX: 



-¿Cómo puedo lograr 
que aparezcan en la pantalla 
los caracteres inversos?, es 
decir, cambiando el color de 
tinta por el del fondo. 

-¿Cómo pueden obtener- 
se caracteres FLASH (par- 
padeantes)? 

-Debido a qué tengo al- 
gunos programas del ZX- 
SPECTRUM en que apare- 
ce el comando DRAW 
X,Y,Z. ¿Cómo puedo susti- 
tuirlo en los MSX? 

-Querría tambiénque me 
dieséis información sobre el 
BASIC TUTOR. 

-¿Cómo puedo ampliar el 
BASIC de mi ordenador con 
nuevos comandos? 
Richard Martínez Montoya 
Linares - JAEN 



Cambiar a vídeo inverso 
no se puede hacer directa- 
mente desde el BASIC, es de- 
cir, no existe ningún coman- 
do aue permita hacerlo. Sin 
embargo, se puede hacer un 
pequeño programa que copie 
las letras - en inverso en la 
zona de VRAM ocupada por 
los caracteres gráficos. De 
este modo consigues caracte- 
res inversos; pero pierdes los 
gráficos. Este pequeño pro- 
grama podría ser: 
10 FOR X = 2048+8*32 
TO 2048+127*8+7: VPO- 
KE 1024+X, VPEEK (X) 
XOR 255:NEXTX 
20 T$ = «Mensaje a escri- 
bir...» 

30FORI=TOLEN(T$) 
40 PRINT CHR$ 



50 NEXTI 

Para lograr el efecto 
FLASH el programa necesa- 
rio sería mucho más compli- 
cado. En el Süectrum esto se 
consigue mediante una inte- 
rrupción controlada por el co- 
mando FLASH del BASIC; 
pero en MSX esta interrup- 
ción debería ser controlada 
por un pequeño programa en 
ensamblador, cuya longitud 
(no siendo excesiva) no nos 
permite incluirlo en esta sec- 
ción. 

El comando DRAW del 
Spectrum realiza un desplaza- 
miento relativo. Esto se con- 
sigue en los MSX con la op- 
ción de desplazamiento rela- 
tivo del comando LINE. Por 
ejemplo DRAW X, Y,Z sería 
LINE-STEP(X,Y),Z 

El BASIC TUTOR es un 
cartucho que amplia el BA- 
SIC de forma que podemos 
trabajar normalmente con él; 
pero cuando no sepamos 
cómo utilizar una determina- 
da instrucción, no tenemos 
más que escribirla precedida 
de un guión. El ordenador 
nos dará una completa especi- 
ficación del comando en cues- 
tión. 

Ampliar el BASIC está re- 
servado a los cartuchos de 
ROM, como es el caso de este 
cartucho de BASIC TUTOR. 
Pero, si has leído los números 
de noviembre y diciembre de 
nuestra revista, en los artícu- 
los sobre el &ASIC PLUS se 
comenta que es posible «en- 
gañar» al ordenador sin nece- 
sidad de conectar un cartucho 
ROM. 



FICHEROS EN CASSETTE: 



Quisiera saber cómo se 
pueden generar ficheros de 
datos en cassette con los 
MSX. 

David Gadea Boix 
Alzira (VALENCIA) 

Para grabar y recuperar da- 
tos en cinta de cassette exis- 
ten varios comandos muy úti- 
les. 

Para abrir el fichero en 
modo escritura (grabación): 

OPEN "CAS: Nombre" 
FOR OUTPUTAS* 1 
mientras que para abrirlo en 
modo lectura: 

OPEN "CAS.Nombre" 
FOR IN PUTAS # 1 

Una vez abiertos los fiche- 
ros podemos enviar o recibir 
datos de ellos, según los haya- 
mos abierto en un modo u 
otro. Para leer datos hare- 
mos: 

INPUT # 1, variables 
y para escribir datos: 

PRINT* l variables 

Por último, para cerrar el 
fichero basta con hacer: 
CLOSE* 1. 

Como nos envías un lista- 
do, incluimos aquí el frag- 
mento de programa encarga- 
do de grabar y leer los datos: 

Los datos se almacenan en 
a$(x), b$(x) y c$(x). 

GRABACION 

OPEN "CAS.GUIA" 
FOR OUTPUTAS* 1 

FOR R= 1 TOH 

PRINT * J, a$(r), b$(r), 
c$(r) 

NEXTR 

CLOSE * 1 

LECTURA: 

OPEN "CAS.GUIA" 
FOR INPUT AS* 1 

FOR R= 1 TOH 

INPUT * I, a$(r), b$(r), 
c$(r) 

NEXTR 

CLOSE* 1. 

NOTA: Si abrimos más de 
un fichero simultáneamente 
hemos de cambiar el I del 
OPEN, INPUT o PRINT y 
del CLOSE por un número 
correspondiente a cada fiche- 
ro: 1,2,3,.. 



VAMPIRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murció- 
lagos, fantasmas, etc. Un juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



^CjS^^t NUEVO 

HARD 



POR JOAQUIN LOPEZ 

Menú» por ventanas ira» 
formatos de copla» almulación 
en blanco y negro copia 
aprlte* r <■ • <■' i n . colora* 
compatible con cualquier 



CON GARANTIA 

/IWHATTAN TRANSFEPSA 



HARD CCPY. Para copiar pantallas. Tres 
formatos de copias, simulación por blanco y 
negro, copia sprites, redefinic. de colores, 
compatible con todas las impresoras ma- 
tric. PVP. 2.500 Pts. 
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KRYPTON. La batalla mas audaz de las gala- ÜBOOT. Sensacional juego de simulación QUINIELAS El mas completo programa de SNAKE. Entretenido y muy divertido juego 

xias en cuatro pantallas y cuatro niveles de submarina en la que tienes que demostrar tu quinielas con estadística de la liga, de los en el que Snake procura comer unos nume- 

dificultad- Un juego cuya popularidad es cada pericia como capitán de un poderoso subma- aciertos, etc e impresión de boletos. Acertar ros que la engordan Tanto las murallas que 

vez mas grande entre los usuarios del MSX. riño de guerra. Panel de mandos, sonar, tor- no siempre es cuestión de suerte PVP 700 la rodean como su larga cola pueden ser 

PVP. 500 Ptas. pedos, etc. PVP 700 Ptas Ptas mortales para ella PVP 600 Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido STAR RUNNER. Conviértete en el audaz FLOPPY. El Preguntón Un verdadero desafio wj> pox Un héroe solitario es lanzado a 

juego de aventuras a través de los místenos piloto interestelar y lucha a muerte, a * tus conocimientos de Geografía e Historia ^ carre ra a vida o muerte por un desierto 

y peligros que encierran los laberínticos pa- través del hiperespacio. contra las defen- española Floppy no perdona y te costara plagado de peligros Conseguir el combusti 

sillos de una pirámide egipcia ¡Atrévete si S as del tirano Daurus Dos pantallas y much0 su P erarlu pvp 1 000 ^ ble para sobrevivir es su misión Diez niveles 

puedes! PVP. 700 Ptas. ciI1C0 óyeles de dificultad PVP 1 000 pts de Ocultad PVP 1 000 pts 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 

l"~Nombre y apellidos: 
Dirección: 
Población: 



CP 



□ KRYPTON Ptas. 500- 

□ ÜBOOT Ptas. 700- 

□ QUINIELAS Ptas. 700- 

□ HARDC0PY PtasTWO- 



□ 
□ 
□ 



SNAKE Ptas. 600,- 

EL SECRETO DE LA PIRAMIDE Ptas. 700,- 

STAR RUNNER Ptas. 1.000 - 



□ 
□ 
□ 



Tel.: 

FLOPPY PVP. 1.000 Ptas. 

MAD FOX PVP. 1.000 Ptas. 

VAMPIRO PVP. 800 Ptas 



[Gastos 



de envío certificado por cada cassette Ptas. 70 - Remito talón bancario de Ptas. 



a la orden de Manhattan Transfer, S A 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Tablón de anuncios 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de software original es 
un acto delictivo perseguido por la ley. 



Vendo Spectravideo SV-328, 
Super Expander, Unidad de 
disco, cassette especial y varias 
cintas y discos con juegos y 
(Uros programas. Precio a con- 
venir. Willy Miragall; Av. Uno 
n.° 4, 2:\ 3 ° Sta. Perpetua de 
Mogoda, BARCELONA Tel. 
(93) 560 53 49 (Desde las 21). 
CP1. 

Vendo Toshiba HX-10, casset- 
te, joystick, 60 programas co- 
merciales, 40 revistas y libro 
MSX por 30.000 Ptas. Vendo 
impresora PHILIPS VW-0020 
más 60 programas (los anterio- 
res) v procesador de textos 
(TAS'WORD) por 30.000 Ptas. 
David de 15:00 a 20:00 C/. Lu- 
cena n ° 18. 41006 SEVILLA. 
Tlf. (954) 63 53 07. CPl. 
Vendo o cambio joystick 
Quickshot II por programas 
MSX. También estoy interesa- 
do en cartucho de ampliación 
Je 64 Kb. Juan Manuel Parga 
Fraga. Tlf. (982) 22 28 77. CPl . 
Vendo Spectravideo SVI-328 
con cassette SVI-903, adapta- 
dor juegos Coleco SVI-303, 
joystick, cartuchos y cintas de 
juegos de SVI y Coleco por 
55.000 Ptas. Líquido revistas 
encuadernadas cíe Ordenador 
Personal, Computing Today 
otras. Antonio Tenes C/Cadar- 
so n.° 62 - 28008 MADRID. 
Tlf. 248 97 511 (noches). CPl. 
Vendo Sony HB 55P de 16Kb. 
Regalo 4 cartuchos (Road Figh- 
ter, Hyper Sports I, Ping Pong 
y Yie Ar Kung Fu). Precio a 
convenir. Andrés Ortí. Tlf. (96) 
32573 14. C/Julián Peña,n°16. 
VALENCIA. CPl. 
Vendo curso de BASIC MSX 
en cinta de vídeo Beta. Es origi- 
nal, marca SONY. Pido 8.000 
ptas más gastos de envío si es 
para fuera de Sevilla. Se admite 
talón conformado o giro postal. 
Alvaro Cueto Senra. C/ Madre 
Isabel Moreno n.° 10, 6.° B. 
41005 SEVILLA. CPl. 
Vendo Sony HIT-BIT 101P 
por 30.000 Ptas. + 20 juegos 
comerciales 4- mapas y pokes. 
Interesados llamar al Tlf: (958) 
12 32 15. GRANADA. CPl. 
Cambio Hyper Sport 1 y dos 
cintas de video VHS de inicia- 
ción al MSX por un adaptador 
de tarjeta BEECARD o los si- 
guientes juegos: Super Cobra, 
Time Pilot o Sky Jaguar. Pedro 
Sala Valdés. C/Sirio n.° 30 
28007 MADRID. Tlf: 273 00 
82. CPl. 
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Vendo ordenador Philips 
MSX, 20 cintas con 80 juegos 
comerciales, 200 revistas y li- 
bros, y un joystick Canon. 
Todo por sólo 19.900 Ptas. José 
Luis Rojano, C/ Camorro, 2, 
7.° D. Alarcón. MADRID. 
CPl. 

Vendo VG-8020 en buen esta- 
do, más de 15 juegos Konami, 
más cassette Computone. Todo 
por 40.000 ptas. Llamar por la 
noche. (93) 431 18 72. Jesús. 
CPl. 

Cambio programa Jet Fighter 
de Aacksoft original con ins- 
trucciones en español por uno 
de los siguientes juegos: River 
Raid, Cazafantasmas u otros. 
José Manuel Beneitez Vega. 
Urb. Maripins, Chalet n. 1 ' 16. 
43840 Salou TARRAGONA. 
Tlf: 37 13 39 (977). CPl 
Vendo ordenador Spectravi- 
deo SV-328, data cassette SV- 
904, adaptador a MSX SVI- 
606, un cartucho y muchos pro- 
gramas en cinta por 45 .000 ptas 
negociables. Arturo Abós. Tlf: 
(91)759 11 56. CPl. 
Intercambio juegos (HERO, 
Soccer, Profanation, Alien 8, 
Hyper Rally, Ghostbusters, 
Hyper Sports I, II y III, etc. Po- 
seo los mejores de Konami, Ac- 
tivision y Dinamic. Tengo jue- 
gos de arcade, aventura, com- 
bate espacial y más de 10 simu- 
ladores de vuelo (F-16, North 
Sea Helicopter, Flight Simula- 
tor 737, etc.). Interesados escri- 
bir a Héctor Martín Pérez. Cra. 
Gral. de San Miguel 11, 1.°. 
Granadilla de Abona. TENE- 
RIFE (Islas Canarias). CP. 1. 
Cambio juego DECATHLON 
de Activision por alguno de los 
siguientes: Ping Pong, River 
Raid, Hyper Sport II o Super 
Cobra. Siró Garrido Padró. C/ 
Mugakoa D 10.° izda. Portuga- 
lete, VIZCAYA. CPl. 
Vendo ordenador y lápiz ópti- 
co SANYO completamente 
nuevos, con garantía de 6 me- 
ses. Regalo joystick y más de 30 
juegos. 45.000 y 19.000 respec- 
tivamente. José Antonio Quin- 
tana. C/ Fuencaliente, 3, 1.°. 
46023 VALENCIA. Tlf: 362 94 
90. CPl. 

Vendo YAMAHA CX5M - 
Computer Music, con sintetiza- 
dor de sonido DX. Ordenador, 
teclado profesional, cartucho 
de composición, cartucho con 
sonidos y cartucho almacén de 
datos. Todo 130.000 ptas. Jor- 



di. C/ Balmes 448, 08022 BAR- 
CELONA. Tlf: 417 42 48. 
CPl. 

Cambio AMSTRAD CPC- 
6128 con pantalla de fósforo 
verde, con ttnlo el paquete de 
discos y programas que trae 
consigo y la garantía de Indes- 
comp por un SVI-738 
X'PRESS MSX con pantalla, 
sin cobrar ni pagar nada. Poco 
uso. Tengo varios programas 
en disco; Ajedrez 3D Grand Prix 
3D y otros, Rallyn II, La pulga, 
Skyfox, Spitfire-40, Mini Offi- 
ce, Contabilidad doméstica y 
varios más todos en discos. Mi- 
guel Fernández Palomar, Pza. 
Gutiérrez Somprún, n.° 1, 
I A 47012 VALLADOLID. 
Tlf: 39 81 60. CPl. 
Cambio ordenador Toshiba 
HX-10 en perfecto estado de 
uso por el Spectravideo 728 o 
por otro ordenador MSX que 
tenga las 2 entradas de tipo car- 
tucho, tales como el Canon 
V20, Sony 75 P, Philips VG 
8020, o Dynadata. Tlf: (91) 401 
28 42. Preguntar por Guiller- 
mo. CPl. 

Compro todo tipo de progra- 
mas originales. Si tienes alguno 
que vender llámame al (93) 387 
46 1 1 o escríbeme a c/ Agueda 
Mompel, 30, 4.° 1. a Badalona. 
BARCELONA. CPl. 
Vendo urgente ordenador SVI- 
328 MKII, datacassette SVI- 
904, 5 cassettes de juegos (Sasa, 
Telebunny...), más de 40 pro- 
gramas, joystick Quickshot II, 
manuales. Todo en perfecto es- 
tado y por sólo 38.000 ptas. Pe- 
dro Luis Gomis Faus. C/ Vir- 
gen Murta, 47. 46600 Alcira. 
VALENCIA. Tlf: (96) 241 45 
64. CPl. 

Vendo Sony 32 Kb más 50 jue- 
gos por 32.000 ptas. Angel Sán- 
chez. C/ 4, n.° L Tudela del 
Duero. 47320 VALLADO- 
LID. Tlf: (983)52 01 16. CPl. 
Vendo impresora Philips MSX 



El secreto de la 

o o 




VW-0020 de 80 columnas. Tie- 
ne poco tiempo y el precio sería 
a convenir. César Toquero Ló- 
pez. C/ Santucho 73-4-C. 
48006 BILBAO. VIZCAYA. 
Tlf: 433 68 24. CPl. 
Contactos. Si deseas apuntarte 
a un club MSX escribe a Oscar 
García Linares, Granada. C/ 
Adelfa, 3, 1. a esc, l.°A. 18006 
GRANADA. CPl. 
Cambio juegos con chicos/as 
de Barcelona y alrededores. Po- 
seo los mejores de KONAMI 
(Knight Mare, Hyper Sports 
III) Ultímate (Gunfrisght, 
Knight Lore y Camelot Wa- 
rriors por otros juegos. Intere- 
sados mandar lista o llamar a 
Juan A. López Luque. C/ Alva- 
rado n.° 14, 1° 2 a . 08033 BAR- 
CELONA. Tlf: 350 71 78. 
CPl. 

Contacto usuarios o interesa- 
dos que posean software para la 
transmisión y recepción de 
CWRTTY. Alejandro García. 
Avda. Hilario Ruiz, 46. 15621 
Cabanas - LA CORUÑA. CP2. 
Compro a buen precio (de 5 a 
8.000 ptas.), ampliación de 
64K. También vendo HB 16 de 
Sony, precio a convenir (entre 2 
y 5.000 ptas.). Dispongo de jue- 
gos que cambio o vendo. Pedro 
García Caro. C/. Carlos III, n.° 
17, 4.°B. 30201 Cartagena - 
MURCIA. Tel. (968) 52 02 02. 
CP2. 

Vendo Sony - HBF - 500P 
(MSX11), completo, nuevo, in- 
cluidos manuales y sistema 
operativo (MSXl 1-DISKET- 
TE), sólo proximidades de mi 
población -130.000 Ptas.-. 
losé Luis Basterretxea Barroso. 
C/. Iturribide, n.° 12, 2.°, 
dreha. Betxo - BISKAIA. Tel. 
469 43 63 (de2a4).CP2. 
Contacto c/. Club MSX -ase- 
guro respuesta-. Interesados 
escribir a José García Selgaz. 
C/. Niño Jesús, bloque 5, portal 
3, bajos A. Arganda del Rey - 
MADRID. CP2. 
Vendo Karate, Space Walk, 
Laberinto 3 D y les Flics por 
700 Ptas. También un selector 
de antena y un curso de Basic 
-MSX en video-. Antonio 
Montero Batllé. Ciudad Coo- 
perativa, 49, 5.°, 2. a . Sant Boi - 
BARCELONA. Tel. 652 16 94. 
CP2. 

Vendo HIT-BIT-75 SONY 
(manuales conexiones software 
original) y unidad de disco 
3.5". Ofertas: José Búa. Aptdo. 



78. Boiro - 15931 LA CORU- 
ÑA. CP2. 

Contacto Club LSD PRIN- 
TER. Intercambio de software 
e información sobre sistema 
MSX. Todo sobre hardware. 
Apdo. 2093. MURCIA. CP2. 
Compro cartucho de amplia- 
ción de memoria Sony o cual- 
quier otra marca, de amplia- 
ción a 64 K, por 8.000 ptas. Ru- 
bén Parera Roura. Rambla, 12, 

4. °, 2. a . Mongat. Tel. 384 40 49. 
CP2. 

Compro ampliación de 64K. 
Oscar Marina Saiz. C/. Andalu- 
cía, n.° 2, 3.°. Tel. 490 00 19. 
Baracaldo - Bizkaia.CP2. 
Deseo conseguir ordenador, 
unidad de discos y demás peri- 
féricos MSX, nuevos o usados. 
Espero ofertas. A. Dávila. 
Apdo. 274, 45600 Talavera - 
TOLEDO. CP2. 
Vendo Toshiba H X-10, cartu- 
cho Logo Phillips y grabadora. 
También programas, libros y 
revistas. Todo a 45.000 ptas. 
Avda. Castelao, Bl. 112, 12 °B. 
Vigo, 9. CP2. 

Cambio cartucho ampliación 
de 16K de Sony y cartucho de 
juego Z«Konami's Soccer, por 
cartucho de ampliación de 64 
K, preferible de Sony. Alberto 
Alaiz Casas. Avda. José Quinta- 
na, s/n. Sadaña - 34100 PA- 
LENCIA - Tel. (988)89 01 91. 
CP2. 

Contacto con poseedor de im- 
presora para realizar listados. 
Pagaré. Anna Vilaseca. C/. 
VeD, n.° 24. Santa Creu de Jo- 
glars - 08519 BARCELONA - 
Tel. 888 00 12. CP2. 
Cambio tres programas en car- 
tucho (Flight Path 737, Super 
Soccer y Super Cobra) , y dos en 
cinta (Ghost Busters y B.C. 
Grogs), además de un Quicks- 
hot 1 1 por Map de Mitsubishi o 
Logo Philips. Cayetano An- 
dreu Laurindo. C/. Ocaña, n.° 

5. El Ejido -04700 ALMERIA. 
CP2. 

Intercambio juegos. Poseo en- 
tre otros: King Lore, Gungfrit, 
Zaxxoñ. David Pacheco Díaz. 
C/. Fray Pedro Vives, n.° 17, 
pta. 5 - Td(96) 365 57 77. CP2. 
Intercambio programas, mapas 
y poques de juegos sin fin eco- 
nómico. Enviar lista. Pedro 
Luis Muñoz Rosa. C/. Jubila- 
dos y Pensionistas, n.° 3. Mon- 
tilla - CORDOBA. CP2. 
Vendo Philips VG-8020 (80K), 
menos de un año, completo. 5 
cintas originales y otra con 10 
jueeos. Todo por 40.000 ptas. 
Pedro Pérez. C/. Ant. Macha- 
do, 19, 8.°. Elche - ALICAN- 
TE. CP2. 

Vendo Spectravideo SVQ-328 
80K, cassette SVl-904, Quicks 



Shot 1, 12 cintas de gestión y 
juegos, fuente alimentación y 
manual castellano, 37.000 Ptas. 
Cristóbal García Rodríguez. 
Avda. Europa, n.° 134, 4/\ 1 ' 
Tel. (93)336 63 32. Hospitalet 
de Llobregat. BARCELONA. 
CP2. 

Cambio más de 50 programas 
por un cartucho de ampliación 
de 64K. Fernando Alvarez Re- 
guant. Avda. Sta. Bárbara, n.° 

41 - 08260 Suria. BARCELO- 
NA. CP2. 

Intercambio juegos MSX tales 
como «Panorama para matar» 
(1. a y 2. a parte), Athletic Land, 
«Oh Shit», por otros, Claudio 
Vellve Espiga. C/. Gral. Mola, 
n ° 29, 4.°, dreha. BURGOS. 
Tel. (947)26 67 94. CP2. 
Vendo ordenador Philips 
MSX-VG 8000 con amplifica 
dor de memoria de 16 K c/ 
(poco uso). Regalo más de 30 
juegos comerciales y libros. 
Juan M. a Gorrotxategui C 
Guipúzcoa, 15, 4.° C - 20240 
Ordizia. GUIPUZCOA. Tel. 
(943)88 54 74. CP2. 
Vendo Spectravideo S VI -328 
con cassette, joystick Quicks- 
hot I, perfecto estado, buen 
precio. Llamar al teléfono (926) 

42 49 76 o escribir a C/. Hospi- 
tal, n.° 6, bajo A. PuertolLino 
CIUDAD REAL.CP2. 
Vendo Spectravideo SVl 904, 
Joystyck Quickshot 1 1, libro de 
programación avanzada, jue- 
gos, cintas de Intro al Basic, 13 
boletines de Club ISIS, manua- 
les en inglés y castellano. Sólo 
39.000 ptas. Txutxki. Tel. (94) 
467 13 84. CP2. 

Compro cartucho ampliación 
de 48 ó 64 K, precio a convenir. 
Luis Benedicto Qurol. C/. 
Campoamor, n.° 45, 2.°, 2. a . 
Hospitalet - BARNA. Tel. 335 
05 70. CP2. 

Vendo Cartucho Track & Field 
II por 3.900; juegos y progra- 
mas educativos a precios eco- 
nómicos. Escribir a Dimas Ra- 
mírez Juan. Plaza de San Ro- 
que, n.° 16-18, 6.°, 2. a . Badalo- 
na - BARNA. Tel. 398 15 40. 
CP2. 

Vendo ordenador MSX, HIT, 
BIT 101 con ampliación de me- 
moria 64K por 27.000 ptas. An- 
tonio. Tel. (93) 652 1694.CP2. 
Cambio por otro juego o com- 
pro programas que simulen la 
sintonía de las películas de 007 
James Bond. Miguel Borrego. 
C/. Abad Racimir, 11. Olot - 
Girona. CP2. 

Vendo Sony HB 75P de 80K, 
libros, programas comerciales 
por 30.000 ptas. Venancio Bi- 
dasoro. C/. Harzubia, 9, 3.°. 
Azpeitia - GUIPUZCOA. Tel. 
81 25 06. CP2. 



Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. " Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. " No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. " Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 

PREMIOS 

5. " MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. ' MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10.° El plazo finalizará el 
30 de junio de 1987. 



1 1 



El basic mano a manoi 



,Por Willy Miragall, 



PRINT 
E INPUT (I) 



Por fín un curso de BASIC para todos los niveles. 
Con este curso de BASIC esperamos que los 
principiantes acaben dominando el lenguaje del 
ordenador, y que los que ya lo conocen mejoren 
sus técnicas de programación. 



Al tiempo que inauguramos este 
año vamos a ofreceros una nue- 
va sección que os introducirá 
en el mundo del ordenador y de la pro- 
gramación en BASIC. Esta sección será 
una guía exhaustiva del BASIC en la 
que trataremos, lo más didácticamente 
posible, de todos y cada uno de los co- 
mandos del mismo. En principio, esta 
sección está destinada a aquellos que 
no saben absolutamente nada de infor- 
mática. A aquellos que se enfrentan 
por primera vez con el ordenador. 
Pero los que ya tengáis una cierta soltu- 
ra ante la máquina podéis sumaros a la 
sección en capítulos sucesivos. 

Cada uno de los temas que tratare- 
mos será acompañado por una serie de 
pequeños ejercicios a los que daremos 
solución al mes siguiente de publicar- 
los. Más adelante, debido a la longitud 
de los programas, no podremos publi- 
car todas las soluciones; pero intenta- 
remos aclararlas lo más posible. 

De este modo, al finalizar la serie 
contaréis con un completo curso de 
BASIC y un catálogo de ejercicios re- 
sueltos. Pero vamos ya, sin más dila- 
ción a comenzar con ÉL BASIC PASO 
A PASO. 

1.1 CONCEPTO DE 
ORDENADOR: 

Ante todo, durante el curso, intenta- 
remos ser prácticos, es decir, nos abs- 
tendremos de definiciones en aquellos 
puntos en que sean innecesarias y nos 
centraremos en cómo hacer programas 
de una forma lógica, ordenada y clara. 

Un ordenador es una máquina capaz 
de almacenar información para más 
tarde procesarla. En concreto pode- 
mos darle un conjunto de órdenes (que 
a partir de ahora llamaremos instruc- 
ciones) que el ordenador memoriza 
para ejecutarlas más tarde. Un conjun- 
to de instrucciones que hace algo en 
concreto es lo que denominaremos 
programa. Vamos a dar un ejemplo 
que clarifique todos estos conceptos: 

Cuando queremos hacer un huevo 




frito y cogemos un libro de cocina esta- 
mos siguiendo un proceso similar al 
que sigue el ordenador con nuestros 
programas. 

En este caso, el libro (con las instruc- 
ciones para hacer el huevo frito) es el 
programa, y nosotros, el ordenador. 
Cada uno de los pasos que seguimos 
para hacer el huevo frito es una instruc- 
ción. 

Vamos, siguiendo con el ejemplo, a 
ver ciertas reglas muy importantes que 
deben seguir las instrucciones de un 
programa: 



- El ORDEN DE LAS INSTRUC- 
CIONES NO SE PUEDE VARIAR: 

No es lo mismo calentar el aceite y ti- 
rar el huevo a la sartén hasta que esté 
frito que tirar el huevo a la sartén hasta 
que esté frito y, más tarde, calentar el 
aceite. 

-TODAS LAS INSTRUCCIONES 
DEBEN SER INTELIGIBLES PARA 
EL ORDENADOR: 

Si en el libro de cocina encontramos 
escrito «QGSPDJTLD» no sabremos 
qué hacer. No entendemos el mensaie, 
por lo que nos pararemos sin poder 
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continuar. Lo mismo le ocurre al orde- 
nador si escribimos algo que él no en- 
tiende. 

1.2 NUESTRA PRIMERA 
INSTRUCCION: 

En estos momentos ya podemos co- 
menzar a hablar con el ordenador. Sólo 
nos hace falta saber qué decirle. La pri- 
mera instrucción que entiende el orde- 
nador es PRINT. PRINT es una pala- 
bra inglesa que significa «imprime». 
Cuando el ordenador se encuentra con 
esta palabra «escribe» todo lo que haya 
detrás de ella; pero de acuerdo con 
ciertas normas. 

- EL ORDENADOR GENERARA 
UN RESULTADO NUMERICO 
SIEMPRE QUE LE SEA POSIBLE: 

Así, si escribimos PRINT 2 + 3 el or- 
denador nos responderá 5, ya que 
siempre que puede calcula el resultado 
de las operaciones matemáticas y lo im- 
prime en su lugar. 

- EL ORDENADOR NO MODI- 
FICARA LO QUE APAREZCA EN- 
TRE COMILLAS: 

De este modo, escribiendo PRINT 
" 2 + 3 " aparecerá en la pantalla 2 + 3 , y a 

3ue, al estar entre comillas el ordena- 
or no lo modifica, imprimiéndolo en 
pantalla tal y como está. 

Nota importante: Hemos de pulsar 
RETURN (o ENTER) cada vez que 
acabemos de escribir una instrucción 
para que el ordenador la ejecute. 

1.3.1 OPERACIONES 
MATEMATICAS: 

Las operaciones matemáticas funda- 
mentales que podemos realizar con 
nuestro ordenador son: 
+ SUMA de dos o más números. 
- RESTA de dos o más números. 
* PRODUCTO de dos o más núme- 
ros. 

/ COCIENTE REAL de dos números. 
El segundo número no puede ser 
cero. La división se hará con decima- 
les. 

\ COCIENTE ENTERO de dos nú- 
meros. Al igual que en el caso ante- 
rior, el segundo número no puede 
ser cero. El resultado del cociente no 
tendrá decimales, trucándose el re- 
sultado por defecto. 

a EXPONENCIACION. Permite 
elevar un número a otro. 

EJEMPLOS: 

PRINT 17+34-4 (escribe 17 + 34-4, 

que es 47). 
PRINT 2*4.5 (escribe 2x4.5, que es 

9). Fijaos en que la coma de 

los decimales se representa 

con un punto. 




PRINT 1/3 (escribe 1 dividido por 3, 

oue es 0.33333). 
PRINT 1\3 (escribe la parte entera de 

1/3, que es 0). 
PRINT 3a2 (escribe 3 al cuadrado, 

que es 9). 

PRINT 125 a (1/3), (escribe la raíz 
cúbica de 125, que es 5). No- 
tad el uso de los paréntesis. Si 
no los hubiésemos puesto ha- 
bría elevado a uno y dividido 
el resultado por 3. 

1.3.2 PRIORIDAD DE LAS 
OPERACIONES: 

Si no indicamos lo contrario, el orde- 
nador seguirá el siguiente orden al ha- 
cer las operaciones: 

- OPERACIONES PARENTIZA- 
DAS: El ordenador realizará en pri- 
mer lugar las operaciones encerra- 
das dentro de paréntesis. Notad que 
se pueden incluir tantos paréntesis 
uno dentro de otro como sean nece- 
sarios; pero no se pueden utilizar 
corchetes u otros símbolos. 

- PRODUCTOS Y COCIENTES 

- SUMAS Y RESTAS 

Cuando se encuentre con operado- 
res de la misma prioridad el ordenador 



resolverá las operaciones de izquierda 
a derecha. 

EJEMPLO: Calcular la media de 7 y 3. 

PRINT 7 + 3/2 (el ordenador respon- 
de 8.5, que es, evidentemente 
erróneo). El ordenador ha di- 
vidido 3 entre dos y ha suma- 
do 7 al resultado. Deberíamos 
haber hecho: 

PRINT (7 + 3)/2 (el ordenador res- 
ponde 5: resultado correcto). 

1.4 VARIABLES: 

El ordenador cuenta con una serie 
de casillas en la memoria para poder al- 
macenar números. A cada una de estas 
casillas podemos darle el nombre que 
queramos. Por ejemplo, cuando esta- 
mos haciendo un juego de «maman i 
tos», nos interesa que el ordenador «re- 
cuerde» los puntos que llevamos con- 
seguidos a lo largo de la partida. Pode- 
mos definir, pues, una variable, de 
nombre PUNTOS, en cuyo interior 
esté el número de puntos que hemos 
conseguido. 

Por ejemplo, si queremos tener 2000 
puntos haremos: PUNTOS = 2000 

Si queremos ver el contenido de una 
variable podemos hacer PRINT PUN- 
TOS. 

Si recordáis la primera regla del 
PRINT el ordenador intenta generar 
un resultado numérico siempre que le 
sea posible. Como PUNTOS represen- 
ta un número, escribirá el número Si 
quisiéramos que apareciese en la pan- 
talla la palabra PUNTOS deberíamos 
hacer: 

PRINT "PUNTOS" 

ya que el ordenador no variará lo que 
aparece entre las comillas. 

1.4.1 NOMBRES DE 
VARIABLES: 

Como hemos dicho antes, cualquier 
nombre sirve para una variable; pero 
esto no es cierto del todo. Hay que se- 
guir las siguientes normas: 

-EL NOMBRE DE UNA VARIA- 
BLE DEBE COMENZAR CON UNA 
LETRA. 

Así no son válidos nombres de varia- 
ble como 4 A ¡ A Y ! , etc. 

-SOLO LAS DOS PRIMERAS LE- 
TRAS INDICAN EL NOMBRE DE 
LA VARIABLE. 

^ Para el ordenador PUNTOS y PUL- 
GAS son la misma variable, ya que las 
dos primeras letras son las mismas. 

—No podemos utilizar como nombre 
de variable el nombre de una instruc- 
ción. (P.E.: PRINT) 
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El basic mano a mano 




1.4.2 LA SENTENCIA DE 
ASIGNACION: 

Se denomina sentencia de asigna- 
ción a la instrucción que coloca un va- 
lor determinado dentro de una varia- 
ble. Por ejemplo: 

PUNTOS=2000 es una sentencia de 
asignación que pone 2000 den- 
tro de la variable PUNTOS. 

Podemos introducir en una variable 
el resultado de una operación matemá- 
tica. Por ejemplo: 
CINCO=3+2 

E incluso podemos dar a una varia- 
ble el valor cíe otra: 
QUINTO=CINCO 

Tened en cuenta que en este caso el 
valor de CINCO (a la derecha) es el 
que pasa a la variable QUINTO, y no a 
la inversa. Para que esta instrucción 
tenga sentido debemos haberle dado 
un valor a la variable CINCO con ante- 
rioridad. 

1.4.3 USO DE LAS 
VARIABLES: 

A excepción de a la izquierda de las 
sentencias de asignación, el ordenador 
sustituirá el nombre de la variable por 
su valor. Así, si la variable CINCO 
contiene el valor 5: 

SEIS=CINCO+l equivaldría a SEIS 
= 5+1 

De este modo las variables podemos 
utilizarlas en cualquier lugar. 



Ejemplos: 

PRINT CINCO*CINCO (el ordena- 
dor responde 25) 

PRINT SEIS" 4 (el ordenador respon- 
de 24). 



1.5 NUESTRO PRIMER 
PROGRAMA: 

Hasta ahora hemos entrado las ins- 
trucciones al ordenador una a una, de 
modo que el ordenador ejecutaba cada 
una en el preciso instante en que pulsá- 
bamos la tecla RETURN. Pero esto no 
es lo que deseamos que haga el ordena- 
dor. Lo que esperamos que haga el or- 
denador es memorizar todas las ins- 
trucciones para que luego las ejecute 
todas en bloque. Lograr esto es muy fá- 
cil. Veámoslo con un ejemplo: 

1BA=10 

2 AL=15 

3 AR=BA*AL/2 

4 PRINT AR 

Este sencillo programa nos sirve 
ara calcular el área de un triángulo de 
ase 10 (en la variable BA) y altura 15 
(en la variable AL). 

Los números que hemos insertado 
antes de cada instrucción son impor- 
tantísimos, ya que indican el orden en 
que deben ser ejecutadas las instruc- 
ciones. Veamos, línea a línea qué es lo 
que hace el programa AREA. 

En primer lugar, en la línea numera- 
da con un 1, nos encontramos una sen- 



tencia de asignación que coloca un 10 
dentro de la variable BA. 

La línea 2 coloca un 15 dentro de la 
variable AL. 

La línea 3 coloca en la variable AR el 
resultado de multiplicar BA por AL y 
de dividir el resultado por dos. De esto 
modo, AR contiene el área del triángu- 
lo. 

Por último, la línea 4 hace que el re- 
sultado del programa aparezca escrito 
en la pantalla. 

He aquí nuestro programa para cal- 
cular el área de un triángulo de base 10 
y altura 15. Pero..., querríamos aleo 
más, algo que realmente nos fuese útil a 
la hora de calcular el área de un trián- 
gulo. En este caso, si queremos calcular 
el área de otro triángulo deberíamos 
cambiar el programa. Vamos a hacer 
un programa capaz de calcular el área 
de CUALQUIER triángulo. Pero eso 
lo veremos en el número siguiente, en 
la segunda parte del capítulo dedicado 
a PRINT e INPUT. 

EJERCICIOS 

1- Calcular con el ordenador la 
siguiente operación: 

25 + 3 (56-7) 
5 (198-189) 

Debe dar 3.822222... 

Utilizando para ello los parénte- 
sis que sean necesarios. 

NOTAD que el ordenador no su- 
pone operaciones como hacemos 
nosotros. Para el ordenador 3(56- 
7) no significa nada, y debemos sus- 
tituirlo por 3 (56-7). 

2.- Asignar a las variables A, B y C 
los valores 1,2 y -3 respectivamente y 
calcular el resultado de la siguiente 
operación: 

y -B+VB^ -4AC 
X 2A 
Debe dar «casi» 1. 

3 - Escribir 10 nombres válidos 
de variables. 

4 - Hacer un programa que cal- 
cule el área de un rectángulo de 
base BA= 12 y altura AL=56. 
AR=BA*AL 

Debe dar 672. 
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Programa 



Por Juan M. Navas i 



HALCON 
CALLEJERO 



Juego basado en la famosa serie televi- 
siva en el que tienes que demostrar tu 
habilidad y tu puntería, cosa nada fácil 
de conseguir sobre todo si pilotas la fa- 
bulosa moto. 



ij 'tu Hilssii Gilltjtrfl mi 

20 t» por J.M. Navas «* 
30 '«I para MSX-CLU8 ttt 

40 'tmtmmmmmtm 

50 m mt instrucciones m 

60 SCREEN2.0:OPEN"GRP:"AS*1 
70 C0L0P15. 1,1 
80 GOSUB450 

90 LINE<15,0>-í245,30Ut.BF 
100 LINE(15.40)-(245, 191) . 10.BF 
110 LINE(ÍS,SM245,15),12,BF 
120 DRÍWBIH 7, 7" í PRINTtl , MSX-CLUB DE 
PROGRAMAS — ":BEEP 

130 COLORl:DRAW"BM50.17";PRINTt;,"JUAN H 
ANUEL NAVAS-B6" 

140 C0L0Rl:DRAH"BN51.17 n :PRINT|l."JUAN H 

ANUEL NAVAS-86" 

150 COLOR 4 

160 RESTORE400 

170 F0PVV=1T03 

180 READNL 

190 F0RZ=1T0NL 

200 READE$ 

210 FORX=1TOLEN<E*> 

220 XX=Xt5+60:Y=Zt 8*50 

230 PUTSPRITE1,<XX+4.Y-4),1,1 

240 DRAW-BM=XX; ,=Y; " 

250 A$=!1ID*(E».X,1! 

260 PRINTIl.A» 

270 K=ASC(Af)-32¡IFK>90THENK=90 
280 PLAY'V 8L64N=K;\'V4L64N40" 
2«0 FORT=1TO30:NEXT 
300 NEXT 
310 NEXT 

320 PUTSPPITE1. (-8,8) ,4, 1 
330 IFVV=6THEN370 

340 COLOR 1 :DRAM-BH24. 181 " : PPINTil , - 

(Pulsa una tecla) ":C0L0R4 
350 IFINKEY«=--THEN350 
360 LINEÜ5, 401-1245. 191), 10.BF 
370 NEXT 
380 DRAN"S4A0" 
390 6OTO480 

400 DATA11,' mtmttmmmm ". 
" »»t INSTRUCCIONES ttt '," ttttttt 
IttttttttltUt "," 




N N 



Te presento un juego Vían 
tástico en el que ten- Vdrás que demos 
trar tu ha- Vbilidad y puntería." 
410 DATA " Te resultará muy difí-V 
cil conseguir una buena "/puntuación. 
",li/ El juego está basado enVla se 
ríe televisiva «EL "/HALCON CALLEJERO 
> y con- "/siste en destruir el mayor" 
/número posible de adversa-Vrios." 
420 DATA " Con los cursores con- "/t 
rolas la HOTO y con el "/espaciador e 
1 DISPARO. V Si tienes JQTSTICK p 
ue-"/des utilizarlo/ 
430 DATA 13, " Debido a un exceso de hip 
erpro- - , "pulsión el HALCON CALLEJERO se 



ve "/envuelto en un gran apuro: está en 
"/LA CUARTA DIMENSION y debe plantar"/ 
cara a varios OVNIS que Quieren "/des 
truirlo. ■ 
440 DATA " La batalla se hace más ti 
tánicaVy emocionante a medida que pasa 

el "/tiempo y EL HALCON CALLEJERO sigue 
"/con vida. "/ 
Piénsatelo mucho antes de pul- "/sar 

la TECLA pues tu vida corre \"P E 
L I G P Q. 

450 PESTOPE470:FOPZ=1TO8:READA:T$=T$^CHP 

$(A):NE)(T:SPRITE$(1>=T$ 

460 RETURN 

470 DATA4, 14,31,62, 124, 184, 144,224 
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Programa 




SCCIDKH. I. I i j-64 3 <>0ThCN «5 



480 REH <»«PRESENTACION»«U» 

490 COLORI, 15. ! : 5CPEEN2 

500 DRAK'Cl BM65,70F3D 7 L3U10BM 7 5, 7 0F3D25 

L5H3R5U258M65.85P5D3L2D10L5H3R5U10" 

510 DRAWC1 BR1 ff . 75F3D20L5H3RSU20BH92, 7 

5L453D4R3U2E3P4 H2BH80. '5R5U10R10D3L7D1 

0L5H3' 

520 DPAW-C1 BM110. 1 0F7D1 7 L3U20BHI07,<>5R1 
7-5^:D5L13H3 

530 DPAW-Cl BH133,7SR5F3LS63D9H3U?E36fll4 
:,-f c 735L5H7 c 5U5Bf1!45.B5n!!5G5L10H3Rl0E5 
U5 

540 9RAWC1 BM!58.75R5F3L5G3D ( 'H3U t 'E7Bí1t7 
55! DPAw-c MiM, B0F3D1513H3R3U15BM95, 
560 RAIN T '0.0» 

570 M* 'SWM0 t;o0O4A-2B-4O5C8E-2C2O4 
--3P-405C804A-2.A-2B-405C8E-2C2C2E-4F8C2 
.05C2Q4A-:35D9E-4D4C4Q4B-4D5C204A-3Q5E-8 
F4E-4D4CS04B-805C204A-30SME-fMC4ü4B-40 
5C1" 

5M Btt " V13T!W3A-2a-404E|E-2C203 
¿- 2B- 4 C4C8C'A-2. A-2P-404CBE-2C2C2E-4F8C2 
.OíC227A-704D8E-4D4C407S-404C207A-7n4E-S 

" r4 E-tD4C903P-324C2C:7fi-7G4D9E-494C403S-40 
PLAYAS, B$ 

600 DBA»»C!ÍBH65, 122H2L4G2D14F2U6E2BII7I, 
1 40Ü 18E2R6F2D18U10L 10Bn B5.120D20R5B1 "5 
, 1 20D20R5BH ¡ 15 . 1 20L ! t D ! W 5t5D 1 0R 1 0BM 1 30 . 
i:iBIB62L6«2U5BHt45,taiLlfBl«8l5íJWt« 
H15Í, !40U20 C 'BF2D6G2L9C3F2D9BM167, 120R6F2 
P1662L6H2U1AE2" 

610 L!NE!40.30)-'Ó0.50).4.BF:LINE'70.30) 
-l?#,30) .2.9F:LINEfl00,30)-(120,50), 10, B 
F:LINE'130.30)-(150.50 Í .6.BF:LINE(!60.30 
- L80,5#),13.BF 
620 LINE'70,160!-'90,1B0).4.8F:LINEÍ100, 
160i-U20.!B0'.2,BF:LINE(130,160M150,l 
80!.:0.BF:L!NE'160,!60)-'1B0.180),6.BP:L 
INE(l?«,16#)-(2tf,18í),13,BF 
630 GLOSE 

640 rCRA=lTO^000:NEXT 
650 COLORIS. 1 . 1 
660 SCREEH 1:KEV OFF 

670 LOCATE 3,10:PPINT'¿JOTSTICK O CURSOR 
ES 7 " 

630 X*=INKEY» 
6°0 M+UIFIM3 THEN 1=1 
700 VDP(7)=I 
710 IF X$='J"OR X$="j 
720 IF X*="c"OR X»="C 
730 GOTO 690 
7 40 COLORIS, 7,1 
750 REH»»»»»INICIACION»»»»t* 



THEN CT=1:GOTO740 
THEN CT=0:6OTO740 




# / 



1 1 



7\ 



7 ¿0 OPEN-GRP: "AS* 1 : S2FEEN2. 2 
770 RESTORE1590 :FOR K*l TO 7 



:B*="-:FOP 



I=1T0 32 : READ A*: B*=B*+CHR* ( VAL < "feH'+A* 

)>:NEXT:SPRITE* (K)=B*:NEXT 

780 LINE(0.0)-(255,25).1.BF 

790 L!NE(0.25W255.70).8.BF 

900 CIRCLE(145,40).10.10:PAINT(145,40',1 

0 

810 DRArC13BH0.72R255U10M220,50N210,60M 

1°0,50M180,60H160,50M150,70M!30.50G10H20 

S30H20G10H20G30":PAINT(100,65!.!3 

820 DRAWC 4BM120,72H250,110M120, 7211250, 

150M120.72H200. 19LM120, 72M140, l?lfíl20,72 

M90, 191H120.72M40, 191M120.72M0, 150M120.7 

2H0.110" 

830 LINE(0.170W255,191),1,BF 

840 DRAWC 4BH0,72R255BH0,80R255BH0,100R 

255BN0.130R255BN0.170R255" 

850 Y=90:R= 2: XE=256: Y2=85: V=10: Y3=120:R 

1=3: XA=256:H1=4 

860 ON SPRITE GOSUB1300 

B70 'tmnovmiENTOttm 

880 '»*»*DE LOS****»***» 

890 '»***ovnis*»*<****«* 

900 y2=y2+r:e=e+1: y3=y3+r1:f=f+1 

910 IF E>=K THEN E=0: K=INT (RND ( i ) 150) : R= 
-R 

920 IFF>=QTHENF=0:Q=INT(RND(l)t30):Rl=-R 
1 

930 IF Y2<=70THEN : Y2=Y2*4: R=-R 
940 IFY3<=70 THEN: Y3=Y3+4: Rl =-Rl 
950 IF Y2>=150 THEN Y2=Y2-4:R=-R 
960 IFY3>= 150THENY3=Y3-4:R1=-R1 



970 IF.Y<0 THEN Y=0 
980 PUTSPRITE 1 ,(57, Y), 1, 1 
990 PUTSPRITE 2 ,(200.Y2),1 , Hl 
1000 PUTSPRITE20, (180.Y3) , 1,H1 
1010 GOSUB 1090 
1020 PUT SPRITE8, (XB,YB).6,3 
1030 PUT SPRITE9, 'XE t YE> , 12,5 
1040 PUTSPRITE21,(](A, YA), 6, 5 
1050 GOTO900 

1060 'miMOVIMIENTO DEL»** 
1070 ' f HALCON CALLEJERO»** 
1080 '««Y DISPARADORES»*»» 
1090 D=ST1CK(CT) 
1100 IF D=l THEN Y=(Y-4)M0D 192 
1110 IF D=5 THEN Y=(Y+4)H0D 192 
1120 IFY<70THENY=70 
1130 IFY>150THENY=150 
1140 IFY2<70THENY2=70 
1150 IFY3<70THENY3=70 
1160 IFY2>150THENY2=150 
1170 IFY3>150THENY3=150 
1 180 IFY2>=Y-2ANDY2<Y+2ANDDE=0THEN6OSUB1 
460 

1190 IFY3>=Y-2ANDY3<Y*2ANDDA=0THENGOSUB1 
460 

1200 IF XB>256 THEN 6OSUB1370 
1210 IF XE<0 THEN GOSUB1370 
1220 IFXA<0THEN6OSUB1370 
1230 IF DEM THEN XE=XE-25 
1240 IFDA=lTHENXA=XA-25 
1250 IF DI=1 THEN XB=XB+25: 6OTO1270 
1260 IF STRIG!CT)=-1 THEN 5CUND6. ScHF:SOU 
ND 7 , &H 7 : SQUND8, &H1 0; S0UND9, iH10: SOUND10, 
S0UND12. S.H40: S0UND13, &H0: SPPITEON:G 
OSUB1280 
1270 RETURN 

1280 YB=Y+ 2: XB=77: DI=1 
1290 RETURN 

1300 IF XBM60 THEN S0UND6,í,HF:S0UND7,iH 
7;SOUND8.!<H10:SOUND9,IH10;SOUND10,« ¡ H10¡S 
OUND12.iH40:SOUND13.«tH0:PU=PU+100 
1310 IFPU=1000THENV=VM: Hl=2: R=8: Rl=9 
1320 IFPÜ=2000THENV=V+1 :H1=6:R=10:R1=H 
1330 IFPU=3000THENV=V+1:H1=7:R=8 :R1= 9 
1340 IFPU> 4099 THEN:DRAN"C1BN60,90":COL 
ORI ¡RRINTtl, "HALCON CALLEJERO" : DRAM"BM61 
,90":PRINTI1, "HALCON CALLEJERO" : FORA=ITO 
5000: NEXT: COLORIS, 1 : CLEAR: GOTO650 
1350 IF XE<70 THEN SOUND8,3:SOUND10,16:S 
OUND6,30:SOUND7,199:SOUNDI2,56:SOUND13,0 
: IFV=0THEN1500 

1360 IF XA<85-THEN S0UND8 , 3 : SOUND 1 0 . 1 6 : S 
0UND6, 30: S0UND7, 199: S0UND12, 56: S0UND13, 0 
:V=V-1: IFV=0THEN1500 
1370 IFDI=1THENYB=209:DI=0:XB= 50 
1380 IFDE=1THENYE=209:DE=0:XE=256 
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1390 IFDA=1 THENYA=209: DA=0: Xfi=256 

1400 LINE(0,0)-(255,20),1,BF 

1410 LINE(0,175!-(255,191),1,BF 

1420 SPRITE OFF 

1430 PSET (100, 10) :PRINT01 , "PUNTOS: "¡PU 

1440 PSET (100, 180), hPRINTIl, "VIDAS: "¡V 

1450 RETURN 

1460 DE=1:XE=1?0:YE=Y 2+3: DA=1 : XA= 170: YA 
=Y3+3 

1470 SPRITE ON 

1480 RETURN 

1490 'ttmmtFtNALttmmt 

1500 COLOR 15,1 ,1:SCREEN 1 

1510 LOCATE 9. 8:PRINT"THEN END" 



1520 LOCATE 6, 12:PRINT"PUNT0S: ":PU 
1530 LOCATE 4, 16:PRINT"0TRA PARTIDA S/N" 
1540 X$= INKEY* 

1550 IF U="S" OP X$=V THEN CLEARiGOTO 
650 

1560 IF M«V OR X«="N" THEN END 
1570 GOTO1540 

1580 'ttltDATA DE SPRITESlít 

1590 DATA0,0,0,0, 1.1.1, 3,7, F7,FF,F,36.4B 

,48.30,0,0.0,0. 80,80, 0,90,C8.3E.FF,E0, 98 

,A4,24,18 

1600 DATA0,0,0,0,3.7.F.7F,EA,7F.F,7.B.8. 
10.0,0,0, 0,0,C0.E0.F0.FE.AF. FE. F0.E0.D0, 
10,8,0 



Test de listado 




1610 DATA0,0,0.2,3.0,3,0, 3, 2,0.0.0,0.0.0 
.0.0,0.0,0,FE.FF. FE. 0.0, 0,0,0.0.0.0. 3. 
Z,:. 2.3. 0.40,41. 41. FF,7F,l,7F,lF,A,7,Ei, 
A0.E0.A0.E0,80.80,C0.C4.C8.54.EC.( : C.FE.B 
4,FB 

1620 DATA 0,0.0. 0,0JF,FF,7F. 0.0. 0.0.0.0 
,0,0,0, 0 | 0 , 40, C0, (y C0|(|C0f 4i ,0,0,0 

0 

1630 DATA0.0,0,81,83,FF,FF,3.I.0.0.0.F,8 
,3B,2A.0,0,0,C0.E0.E0,E0.E0,C0. 80,80, 80, 
F8.88.EE, AA 

16*0 DATA3. 7,3,8. E3.37.2B.3.3. 3. 4.9. 12,9 
,4,19.B0,80,80.0.80.C0.A0.90.«0.90.A8.28 
, 0 , 0 | 80 • 0 



TI ST DI 1 LSI \l>os. Para usar el Test de Listado que publicamos ..I final de cada programa debe erarse el programa 
correspondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. 



10 


■ II 


160 


- 43 


310 -131 


460 


-142 


610 


-203 


760 


- 49 


910 


- 61 


1060 


- 58 


1210 


-253 


1360 -247 


1510 


- 76 


20 


- 58 


170 


- 28 


320 


-216 


470 


-130 


620 


- 11 


770 


-254 


920 


-153 


1070 


- 58 


1220 


-249 


1370 - 40 


1520 


- n 


30 


- 58 


180 


- 33 


330 


-152 


480 


- 0 


630 


-180 


780 


-229 


930 


- 40 


1080 


- 58 


1230 


- 50 


1380 - 1 


1530 


- 82 


40 


- 58 


190 


- 80 


340 


-229 


490 


-105 


640 


-233 


790 


- 48 


940 


-141 


1090 


-188 


1240 


- 38 


1391 -241 


1540 


- 87 


50 


- 0 


200 


-240 


350 


-241 


500 


- 10 


650 


- 87 


800 


- 44 


"50 


- 61 


1100 


•m 


1250 


-250 


1400 -22* 


!55? 




60 


- 47 


210 


-255 


360 


-187 


510 


- 43 


660 


-200 


810 


-245 


960 


-162 


1110 


-112 


1260 


- 4 


1410 - 56 


1560 


-24? 


70 


- 87 


220 


- 86 


370 


-131 


520 


-129 


670 


- 87 


820 


-105 


970 


- 24 


1120 


-160 


1270 


-142 


1420 -!'8 


!5?0 


-161 


80 


- 94 


230 


-199 


380 


-250 


530 


-218 


680 


- 87 


830 


- 51 


980 


- 82 


1130 


- 62 


1280 


-206 


1430 - 62 


1580 


- 58 


90 


-245 


240 


-182 


3«0 


-120 


540 


-162 


690 


-192 


840 


- 68 




-123 


1140 


- 4 


1290 


-142 


1440 -101 


15«0 


-100 


100 


-187 


250 


- 82 


400 


- 23 


550 


-183 


700 


-105 


850 


- 33 


1000 


-120 


1150 


- 6 


1300 


-190 


1450 -142 


1600 


- 51 


110 


-236 


260 


- 87 


410 


- 8 


560 


- 94 


711 


-189 


860 


- 16 


1010 


-225 


1160 


-162 


1310 


-173 


1460 - 3 


1610 


-231 


120 


-166 


270 


-105 


420 


- 15 


570 


-227 


720 


-174 


870 


- 58 


1020 


-244 


1170 


-164 


1320 


-157 


1470 - 92 


1620 


-2!! 


130 


- 7 


280 


-188 


430 


-184 


580 


-233 


730 


- 65 


880 


- 58 


1030 


- 1 


1180 


-204 


1330 


-138 


1480 -142 


Ü70 


- 42 


140 


- 8 


290 


-154 


440 


-167 


5°0 


-184 


740 


- 93 


8°0 


- 58 


1040 


¿JJ 


1190 


-202 


1340 


-100 


14°0 - 58 


1640 


- 13 


150 


-210 


300 


-131 


450 


- 89 


600 


- 87 


750 


- 0 


900 


-107 


1050 


- 30 


1200 


- 47 


1350 


- 19 


1500 -104 


TOTAL: 


1 Q c , 7 



SUSCRIBETE 

Suscribiéndote no solo cienes la seguridad de tener unios los meses tu 

MSX ( :lub de programas en tu casa sino que recibirás 12 

números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



N.' 







Provincia 



Nombre y apellidos 

Calle 

Ciudad 

D. Postal , Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - Cí. Roca i Batlle, 10-12 - 08023 Barcelona 

Tarifas : España por correo normal Ptas. 2.250,— 

Europa por correo normal Ptas. 2.600 — 

Europa por correo aéreo Ptas. 3.250,— 

América por correo aéreo USA$ 35USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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Programa 



iPor D. Garcíai 



MAD JUMPER 



Un programa breve pero que sintetiza los principales 
elementos estructurales de un juego de una manera sen- 
cilla y eficaz, demostrando la evolución de nuestros pro- 
gramadores concursantes. 

Para mover a la izquierda pulsa "O"; a la derecha "P", 
arriba "Q" y abajo "A". Pero también cuenta con una 
opción de redefinición de teclas por lo que tú mismo 
puedes cambiar los mandos. 



Lf »«« MAD JUMPEP tm 
20 '» POP D. GARCIA t 
30 't PAPA HSX-CLUB I 

40 mtmmmmmt 

50 COLORIS, 1,1: SCREEN2 , 2 1 DEFUSRM3054 ! : D 
EFUSRmmi: DEFUSR2=ítH43: DEFUSR3=60001 ! : 
A=USF3i0):X=12t:SO0:SA=0:P$="p":L$=V 
60 AMJSRlt0>:A=USR(0):A$="NIVEL 1 2 3": 
B*= , DEH0STPACI0N-:C*="C0f1ENZAR":D*="(C) 
D6C 1°8&":F»=-DEFINIR TECLAS" :0PEN"6RP:" 
AStl 

70 FORN=707O71: PRESET !N, 90) : PRINTIl . A*: P 
RESET (N, 1 10! : PRINTI1 , B$: PRESET (N. 130) : PR 
INTI 1 , Cí : PPESET (N+9, 180) : PRINTIl, D$: PRES 
ET !N. 150) : PR INTi 1 , F$: NEXTN: A=USR2 (0 ) : GOS 
UB80:PLAY"v0":6OTO110 
80 IFXZ< >#THENRETURNELSEX Z=XZ+1 : Bi=" v=n; 
164o5fac":FORN=0TO12:PLAYBÍ: IFINKEY$=" " 
THENRETURNELSENEXT» 

90 A$='vl2164o=n;ceg , :B$="vl2!i4o=n-4;ce 
g':Ct="vl2164o5fac , :F0RN=lT08:PLAYA$,B», 
Cí : IFINKEY$=" "THENRETURNELSENEXT: F0RN=8 
T01STEP-1:PLAYA$,B»,C$:IFINKEY$=" "THENR 
ETURNELSENEXTN 

1 00 B$= " v=n j 1 64o5f ac ' : F0RN= 1 2T04STEP- 1 : P 
LAYB*: IFINKEY$=" 'THENRETURNELSENEXT: RET 
UPN 

1 10 PUTSPRITE0, (50, 84) , 10, 1 : PUTSPRITE1 , 

X,85).8,0:A*=INKEV$ 

120 IFX«121ANOA«='p , THENX»137:GOTO160 

130 IFX=153ANDA$=VTHENX*137¡60T016f 

140 IFX=l37ANDA$="p'THENX=153 

150 IFX=137ANDA$="o"THENX=121 

1 60 I FA$=CHR$ (13) THENY=84: 60T0 1 80 

170 G0T011Í 

180 IFX=121THENNI=t0:LE=l: IFP1=0THENR2=5 

lPl«PM 

190 IFX=137THENNI=13:LE»2:1FP2»0THENR2»2 
0:P2=P2+1 

200 IFX=153THENNI=17:LE=3: IFP3*0THENR2=3 
0:P3=P3+1 

210 PUTSPRITE0, (50, Y) ,2, 1: A«=INKEY$ 
220 IFY=84ANDA$=VTHENY=104:GOTO280 
230 IFYM23AN0A$="a"THENY=144 
240 IFYM04ANDA»="q , THENY=84 
250 IFY=123ANDA$='q'THENY=104 




260 I F Y= 1 04 AND A<» " a ' THENY 8 1 23 

270 IFY=144ANDAÍ='q"THENY=123 

280 IFA$=CHR*(13)THEN300 

290 GOTO210 

300 IFY=84THEN6OTO110 

310 IFY=104THENDEM 

320 IFY=123THENDE=0 



330 IFYM44THEN6OTO750 

340 COLOR5,5,5:SCREEN2:DEFUSR=43079!:A=U 

SR(0):COLOR15:A»= , PUNTOS':B$="NIVEL":C$= 

■SALTO" :F0RN=23T024: PRESET (N, 141) ,9:PRIN 

TI1,A»:PRESET(N,153),15:PRINTI1,B$:PRESE 

T(N,162),15:PRINTI1,C*:NEXT:6OTO370 

350 LINE(73, 141 )-(88, 151) ,9,BF:F0RN7.=65T 



1 



8 



066 : PRESETtÑZ , 141 ) , ISs PRINTil , SCi NEXTNZi 
RETURN 

360 LINE(66,162)-(86,174),9,BF:F0RNX=67T 
068: PRESET (NZ 1 163) f 9: PRINTil , SA: NEXTNZ: R 
ETURN 

370 FORN=0TO3 : PUTSPR I TEN , ( 255 , 1 60 ) , 0 . 0 : N 
EXTN: F0RN=4T07: PUTSPRITEN, <255, 1 76) ,0,0: 
NEXTN 

380 F0RNÍ=67T06B:PRESET(NX, 153) ,9:PRINT» 

1,LE:NEXT:C0L0R15 

390 SA=SA+1:GOSUB360:6OTO420 

400 DE=1:NI=10:F=30:6OTO490 

410 DATA 170,15,190,15,200,15,0,0,16,16, 

16,250,250,9:RESTORE410:FORN=0TO13:READD 

: SOUNDN, D: NEXT: S0UND7, IBM1 1 1000 

420 DATA 170,15,190,15,200,15,0,0,16,16, 

16, 250, 250, 9: RESTORE420: FORN=0TO13: READD 

: SOUNDN, D: NEXT: S0UND7, liB001 1 1000 

430 IFDE=lTHENF=INT(RND(l)t50):N=3:X=10: 

Y=58:PUTSPRITE29, (230,0), 1,8:6OTO490 

440 F=8:H=3: X=10: Y*58: Z=200:6OSUB480 

450 A$=INKEY$:IFA*=R$ORAt=L$THENF=F+l 

460 Z=Z-1: IF INKEY$=" "THENGOTO490 

470 IFZO0THEN6OTO450ELSE490 

480 PUT SPRITE10,(X,Y),10.2:PUT SPRITE 1 

1,(X,Y+16),10,H:RETURN 

490 RESTORE530 : FORNX= 1 T08 : READX1 : RE ADX2: 

READN:READY1 : F0RVX=X1T0X2: Y=Y+Y1: X=V7.:G0 

SUB480:NEXTVX,N? 

500 IFINKEY$=CHR*(13)THENBEEP:F=F+10 
510 RESTORE540:FORNX=96TO120:Y=Y-F/NI:X= 
NX:GOSUB480:NEXTNX 

520 F0RNMT06: READX1 : READX2: READH:READY 
1 : FORVX=X 1T0X2: Y=Y+Y 1 : X=VX: GOSUB480: NEXT 



VX,NX 

530 DATA10,20,3,. 25, 20, 30,4,. 4,30,40,5,. 
8, 40,53,5,1. 1,53,63, 4, .28,63,67,3,0,67,8 
3,6,-. 1, 83,96,7,-. 3 

540 DATA 121,131,7, -.5, 130,140,7,-. 1,140 
,150,7,. 5,150,170,7,1, 170. 180.7. 2,180.20 
3,7,4 

550 A(SA)*Y-140:Y3=Y-140:Y5=Y:IFY<160THE 
NFORY=Y5TO160STEP4: X=X+. 5: GOSUB480: NEXT 
560 DATA200, 200, 200, 245, 164, 64, 64, 23, 23, 
0,0,0, 100, 0:RESTORE560:FORN=0TO13: READD: 
SOUNDN, D : NEXTN 

570 DATA 12,12,11,11,9,10,11,11,12,12,20 
, 20: RESTORE570: FORN=0TO5: READA: READB: PUT 
SPRITE10, (X-8, 144) , 15, A: PUTSPRITE 1 1 , (X+7 
,144),15,B:FOR(1=0TO30:NEXTN,N 
580 SOUND 7,254:S0UND8,15 
590 DATA 200,200,200,245,164,64,64,23,23 
,0,0,0, 100, 100: RESTORE590: FORN=0TO13: REA 
DD: SOUNDN, D: NEXTN 

600 IFDE=1 THENFORN=0TO400: NEXTN: CLOSEI 1 : 
6OTO50 

610 FORSC=0TOY3:GOSUB350:NEXTSC 

620 IFSA>=3THENA$=-Pulsa RET":FORN=130TO 

131 : PRESET (N. 165) . 5:PRINTI1 . A$: NEXTN: A$= 

'V12L640=N:C":F0RN=1T08:PLAYA»:NEXTN:60T 

0640 

630 IFINKEY$=" "THEN390ELSE630 

640 IFINKEY*=CHR* ( 13) THENC0L0R15, 1 , 1 : SCR 

EEN2:CLSELSE640 

650 A*="SALTO 1":B$='SALT0 2":C*=*SALT0 
3":D*="REC0RD , :E$='Pulsa Space\F»*"NIVE 
L" : A=USR 1(0): DEFUSR=43054 ! : A=USR ( 0 ) 
660 FORN=70TO7¡:PRESET(N.90):PRINTI1,A$: 



PRESET(N,110):PRINTI1,B*:PRESET(ÍI,130):P 
RINTI1,C$:PRESET(N,150):PRINTI1,D$:PRESE 
T(N+4, 180) :PRINTI1,E»:PRESET(N+10, 165) :P 
RINTt 1 , F$: NEXTH 
670 IFA(1XA(2)ANDA(1XA(3)THENR1=A(1):6 
OTO700ELSEIFA(2XA(1)ANDA(2XA(3)THENR1= 
A(2):6OTO700 
680 IFA(3XA(1)ANDA(3XA(2)THENR1=A(3):G 
OTO700:ELSEIFA(1)=A(3)ANDA(3)OA(2)THENR 
1=A(3):GOTO700 
690 IFA(3)=A(2)ANDA(2)=A(1)THENR1=A(1)EL 
SEIFA(3)=A(2)ANDA(2)XA(1)THENR1=A(2)ELS 
EIFA(2)=A(1)ANDA(1)XA(3)THENR1=A(2! 
700 IFRKR2THENR2=R1 
710 C0L0R8 : FORN= 130TO 1 3 1 : PRESET ( N , 90 ) : PP 
INTI1,INT(A(1)):PRESET(N,110):PRINTI1,IN 
T(A(2)):PRESET(N,130):PRINT#1,1NT(A(3)): 
PRESETIN, 150) ¡PR1NTI1, INTIR2) ¡PRESET (N, 1 
65):PRINTI1,LE:NEXTN:A=USR2(0) 
720 IFRE2<-30THENP3=0 
730 1FRE2<-70THENP2=0 
740 IFINKEY$=" "THENCLOSEI1:GOTO50ELSE74 
0 

750 PUTSPRITE0.(0,0),0:6OSUB780 
760 FORN=70TO71:PRESET(N, 150) ¡PRINTil, "T 
ECLA DERECHA . . ■ : NEXT: R$= INPUT* ( 1 ) : G0SUB7 
80 

770 FORN=70TO71:PRESET(N,150):PPINT»1,'T 
ECLA IZQUIERDA. . " : NEXT: L$=INPUT$ ( 1 ) : 60SU 
B780:GOTO340 
780 PUTSPRITE0, (0.0) .0:FORM=50TO210:PUTS 
PRITE5,(N,140),10,2:PUTSPRITE6, ((1,1561,1 
0,3:LINE(«+8,140)-(H+8,172),1:NEXT:PUTSP 
RITE6, (0,0),0:PUTSPRITE5. (0,0>.0:RETURN 



Test de listadoi 




■ 



10 

20 
30 
40 



58 
58 
58 
58 



50 - 43 
60 - 91 



80 -239 
90 - 9 
100 - 78 
110 -130 
120 -130 
130 -161 



150 - 16 
160 -235 
170 - 5 
180 -118 
190 -154 
200 -188 



220 -168 
230 - 13 
240 -206 
250 -245 
260 -229 
270 - 29 



290 -105 
300 - 21 
310 -174 
320 -192 
330 -211 
340 - 96 



360 -242 
370 -166 
380 -204 
390 -206 
400 -187 



430 -212 
440 - 77 
450 -226 
460 -231 
470 -220 



410 -203 480 - 47 
490 -175 



500 -193 
510 - 29 
520 -197 
530 -192 
540 -224 
550 -133 
560 -108 



570 -217 640 -239 710 -126 780 -151 

580 -118 650 -24" 720 -192 

590 -235 660 - 22 730 -231 

600 -118 670 -195 7 *0 -U2 

610 - 4 680 -240 750 -119 

620 - 21 690 - 62 W " 29 TOTAL: 

630 -122 706 - 82 770 -255 11246 





Programa i 



¡Por José M. Casarejosi 



RELOJ 

ANALOGICO DIGITAL 



Para poner en marcha este reloj 
sólo tienes que pulsar la tecla cur- 
sora derecha. Para avanzar las ho- 
ras pulsa la tecla cursora superior. 
Con el cursor derecho se fijan los 
minutos y con la barra espadado- 
ra se pone en i 
el reloj. 




Variables: 

H: Controla la posición de la aguja 
horaria. 

C: Controla la posición de la aguja que 

señala los minutos. 
J: Controla la posición de la aguja 

(círculo) que señala los segundos. 
A: La uso para pasar grados a radianes. 
QyW: Posición XeYde la aguja 



KyZ: Posición XeYde la aguja de las 



XeY: Posición del círculo que señala 

los segundos. 
HH, MM y SS: Horas, minutos y segundos 
aei reioj digital. 



20 ' 
30 ' 
40 ' 
51 ' 
60 ' 
70 ' 



100 ' 





1 RELOJ 


1 


1 ANALOGICO 


1 


1 DIGITAL 


1 


1 POR 


1 


1 JOSE N. CASAREJOS 


1 








mi DIBUJO DEL RELOJ 







120 H=180:C=180:J=1B0:A=57.295B:Q=SIN(18 
0/A)t44+t2B:N=COS(180/A)t44+96:K=SIN(H/A 
) 130+128: Z=C0S (H/A) 130+96: HH=0: 1111=0: SS=0 
130 SCREEN 2:0PEN"GRP: "ASil 
140 FOR 1=180 TO -179 STEP -6 
150 X=SIN(I/A) 150+128 



160 Y=C0S(I /A) 150+96 
170 PSET(X,Y> , 15 
180 NEXT I 

190 FOR 1=180 TO -179 STEP -30 
200 X1=SIN(I/A)t60+128 
210 Yl=COS(I/A)t60+96 
220 PSET(X1.Y1),15 
230 NEXT I 

240 ' HMMniMni 

250 ' | BUCLE PRINCIPAL I 

260 ' ■Munninnimin 

270 ON INTERVAL=50 60SUB 300:INTERVAL PB 
280 PSET(SIN(-174/A) »50+128,COS(-174/A) t 
50+96), 15: IF STICK(0)=3 THEN 60SUB 520 
290 60T0 280 

300 CIRCLE(X.Y),2,4:J=J-6:SS=SS+1 
310 BEEP 

320 X=SIN(J/A)»50+128:Y=COS(J/A)I50+96:C 
IRCLE(X,Y),2.15 

330 IF J<=-179 THEN LINE(128,96)-(Q,N) ,4 
:LINE(0,20)-(50.0),4.BF:BOSUB 370:J=180: 
SS=0 

340 IF 9O0 THEN CIRCLE(X,Y),2,15:LINE<1 

28,96)-(Q,N).l:LINE(128,96)-(K,Z),l 

350 50SUB 560 

360 RETURN 

370 C=C-6:HH=HN+1 

380 Q=SIN(C/A)t44+128:N=C0S(C/A) 144+96 

390 LINE(128,96)-!Q,N),1 

400 IF C<=-179 THEN LINE(128,96)-(K,Z>,4 

:6OSUB420:C=180:HH=0 



410 RETURN 

420 H=H-30:HH=HH+1 

430 SOUND0, 10: S0UND1 , 5: S0UND8, 16: S0UND1 1 

,50:SOUND12,55:SOUND13,I 

440 K=SIN(H/A)!30+128:Z=COS(H/A)»30+96 

450 LINE(128,96)-(K,Z),1 

460 IF H<=-179 THEN H=1B0 

470 IF HH>23 THEN HH=0 

460 RETURU 

490 ' H H BW III MI HWW 

500 ' im PUESTA EN HORA HUR 

510 ' ■■mmmHB 

520 !NTERVALOFF:SS=0:CIRCLE(X,Y>,2,4 
530 LINE(128.96)-(K,Z),1:IF STICK<0)=3 T 
HEN LINE(128,96)-(0,N),4:G0SUB 370:GOSUB 
560 

540 LINE(12B.96)-(Q,N),1:IF STICK(0)=1 T 
HEN LINE(128.96)-(K,Z),4:G0SUB 420:GOSUB 
560 

550 IF STRIG(0)=-1 THEN INTERVALON: J=180 
:SS=0: RETURN ELSE 530 
560 LINE(100,176)-(177.192).1,BF:PRESET( 
105,180), hPRINT I1,USING"#I:II:I4'¡HH¡I1 
H;SS: RETURN 



Test de ListadoHBBM 


10 - 58 


200 -141 


390 


-127 


20 - 58 


210 -113 


400 


- 55 


30 - 58 


220 -156 


410 


-142 


40 - 58 


230 -204 


420 


-234 


50 - 58 


240 - 58 


430 


- 53 


60 - 58 


250 - 58 


440 


-140 


70 - 58 


260 - 58 


450 


-124 


80 - 58 


270 -184 


461 


■ 58 


90 - 58 


280 -152 


470 


-153 


100 - 58 


290 -176 


480 


-142 


110 - 58 


300 -168 


490 


- 58 


120 - 31 


310 -192 


500 


- 58 


130 -242 


320 -113 


510 


- 58 


140 -239 


330 -114 


520 


- 29 


150 - B2 


340 -135 


530 


-242 


160 - 54 


350 -205 


540 


- 34 


170 - 58 


360 -142 


550 


-122 


180 -204 


370 -222 


560 


- 36 


190- 5 


300 -161 


TOTAL: 


6170 
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1. "-Podrán participar tojos nuestros lectores 
cualquiera sea su edad. 

2. °-Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. -Los programas deberán ser remitidos gw 
hados en cassette debidamente protegidas, dentro 
de su estuche de plástico. 

4. -No entrarán en concurso aquellos progra 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. "-Junto a los programas se incluirán las ins 
micciones correspondientes, detalle de las vana 
bles, ampliaciones posibles y todos aquellos có 
mentarios que el autor considere de mu í es 

6. °-Todos los programas han de estai estructu- 
rados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7.o-MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: - 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGR A 
MA DEL AÑO. 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 
10.000 pts. los programas Educativos 
10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

FALLO Y JURADO 

8. U -E1 Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primer* sel* 
ción de la que saldrán los programa publicados 
en cada número de la revista 

9. '-Los programas no se devolverán salvo que 
así lo requiera el autor. 

lO.'-La elección del PROGRAMA DEL AÑO se 
hará por votación de nuestros lectores a través de 
un boletín que se publicará en el mes de octubre 
de 1987. 

I l.°-El plazo de entrega de los programas finali- 
zan el 31 de octubre de 1987. 
12. "-El tallo se hará conocer en el numero de di 
ciembre de 1987, entregándose los premios en el 
mismo mes. 





Remitir a: I Mí PROGRAMA 

Roca i Batlle, 10-12, bajos 08023 Barcelona 



Programa i 



iPor Manuel Ropero López ■ 



EL SEÑOR 

DE LOS ANILLOS 



Juego interactivo inspirado en situa- 
ciones y personajes del famoso libro 
de J.R.R. Tolkien y que el autor resuel- 
ve muy bien, especialmente en sus grá- 
ficos. 



20 ' I El Señor de los Anillos I 

30 I por I 

*0 ' | Manuel Ropero López I 

50 ' I para «SX-Club I 

60 ' | Aliería 1986 I 

70 ' iiiiimniiiiiiiiinimii 

u ' 

"0 ' I Pantalla de presentación I 

I e instrucciones I 
100 SCPEEN 2:C0L0P 13,1,1:CLS 
•10 E*= ■ S8U 1 2M+5 , +2M-3 . +2D 1 M+ 1 . ♦ 1 M- 1 . ♦ 1 D 
l«*3.*2H-5,*2 

120 t$='SBfH2,-12M+l, + 10P4M-V2" 

130 S0« , StMl*3,-2H-l,-2«*l t -211-2.*2í!*l,* 

2 M -2. *2" 

140 W»" S 16H+T. -2lt+ 1 , *2H* t . -«t-4, - 
105" 

150 0»="S! 611+3. -3H-3i -31-3.*3H*3. »3" :Q*= 

"S120I+2, -2H-2, -2H-2, +2fl*2. +2" 

160 R0» , Sl«!*2.-2H+2,*2H-l,-3«*T,-lH-3,- 

: w -:.*6' 

1?0 P3ETi30.30):WW Ei 
180 PSET 145,30) sSRAM 1$ 
P0 6 SET(75.40):DPAW S»: P SET' O 5,40) :DPAN 
Es 

201 'SET (i 10, 40} ¡DRAW Ns 
2:0 »3E T '146.40):DRAW 0«: PSET f 1 48, 34) : DF 
AM Qt 

220 PSET'160.40):DPAW P*:DPAW" Bill 73. 20(1* 

1. *mur 

231 : ¿IN T '3;.23):PAINT(i6,2?) 

240 PAINT(82,34):PAINT(9¿,38) 

250 PA1NT(U2,38) :DP.AH'Bttll4, 16S8C13H+3, 

-lt!-í,+t»+3,-l" 

260 PA1NT'146.38):PAINTÍ170.30) 

2?C Dss'SlóM, -2U3K-2, -1N-2. +6" 

280 PSET(3l,9í):0RAII D«: DRAH"PR5B, 82S8H+ 

2. -1U3L204" 

290 PSET(73.90):DRAH Es 
300 PSET(145,95)¡DRAN L*;PSET(170.95)¡DR 
AW Os: PSET (172, 90) ¡DRAM 9$: p SET(185,95) : 
DPAH 5$ 

310 PAINT(54,85):PAINT(76.88) 
320 PAINT(150,90):PA1NT(170,93):PAINT(19 
2,89) 




330 As="Bf140.160S8R10h'-5.-12*-5,*12":P»* 

■P»147. 155S16R21-1.-2M-1,*2- 

340 DRAM A$:DRAH P*:PA!NT'45, 158) 

350 PSET(66.160):DRAW N»:PAINT<6B, 158) 

360 !s="8"<?0,!60S!6P2M+l.-4L2M-l.+4":Ys= 

"PH O 5 ( 140R2U:L2D1' 

370 DRAM Ií:DPAM Ys:PAINTi94, 158):PAINT! 
".139) 

380 PSET'110, 160) ¡DRAW L«:PSET(130,160): 
DRAW li:PAINT(113.157):PAINT(133.157) 
390 CIPCLE ! 158, 148) , 12, 10. , , 1 . 3:CIRCLE< 1 
58.148),8.10,,,1.3:PAINT(151,148),10 
400 PSET (175, 160): DRAW S«: PAINT ( 182, 154! 
410 H$="tl20o4vl5sBi3000014aaagfHeddían 
50n50n50n48b-b-b-aggab-an49agftfeddefegf 
ed":N$="T120o6vl314aaagHfeddfan74n74n74 



n72b-b-b-aggab-an73agffíeddefegfed":PLAY 

Ht,m 

420 SCPEEN 0¡KEY 0FF:W!DTH 37:C0L0R 15,1 
, 1 : CLS 

430 PPINT"En este juego tu desempeñas el 
papel de Frodo.un pequeño Hobbit que ha 

heredado de su tío Bilbo un anillo 
mágico que consiguió en otra aventuraqu 
t ahora no vimi al caso." 
440 PRINT: PRINT'Este anillo engendra el 
■al, así que tú debes llegar al siniestr 
o país de Hordor y arrojar el anillo al 
Honte del Destino." 

450 PRINT:PRINT"Sin eibargo,este lisio a 
nillo te ayudar! a llegar a Hordor, p 
ues el catino está plagado de peligro 
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5. Si quieres más información léete 

el libro, que no va mucho más allá de la 
süiil páginas." 

460 PRINT:PPINT:PPINT" ¡Suerte y feliz av 
entura!" 

470 LOCATE l,22:PRINT n Para comenzar puls 
a una tedaMF INKEY$="" THEN GOTO 470 
480 ' | Definición de variables,! 
490 ' | Sprites y funciones I 
500 CLEAP: SCREEN 2,2:0PEN"5RP:'ASI1 
510 KEYl,-0":KEY2,-N-jKEY3, i S-sKEY4,"E-s 
KEY5/P ,, :KEY6, > H a :KEY7,-A":KEY8/C:KEY9 
, "T"¡KEY10, "H* 

520 F=8:SOLLUH=2:HELP=0:PERM=0: ANILLOS: 
COTA=0: LLAVES: FR=0: ESP=0: AR= 1 : T=150: 1=1 
65:ER=0 

530 FOP 11=1 TO 4:E*="" 

540 FOR 1=1 TO 32: READ Sí 

550 Es=E$+CHR$ (VAL !"liH"+S$)): NEXT 

560 8WITEUH)«E0 

570 NEXT 

580 FOR 11=5 TO 6:R*="" 

5«0 FOR !•] T 0 8: READ S» 

600 Ps=R*+CHP* ! VAL I "!<H"+Ss) ) : NEXT 

610 SPRITE«(Ht=R$ 

620 NEXT 

630 DATA 03,05.05,13,25. 09.13,25, 09.1!.: 

5,00, 13.25,00. 11. C0,A0,O0,C8,A4,90.C8.A4 

,90.C8.A4,90.C8,A4.O0,88 

640 DATA 0,20,60, 10,8,6,7,3,1, 5,8,51, 60, 

30,0,0,0,2.3, 4,E8,B0,F0,60,C0,D0,8.C5.3. 

6.0.0 

650 DATA 40,A7,9D,8F.2F,5F.47,0,0,0,0,0, 
0,0,0,0,2,E5,B9,F1,F4,FA.E2,0.0, 0,0,0.0, 

0,0,0. 

660 DATA 0,0,7.F,1F,1F,3F,3F,3B,1F,7,0,0 
,0,0.0,0,0,80,C0,E0.E0.F0,F0,70.E0,80,0, 
0,0.0,0 

670 DATA 18.1C,3E,3F.3F,7F,7F.FE 
680 DATA 0,0,0,0,30,30,30.30 
690 BOTO 860 

700 PRESET(20,lB5):PRINTIl,"¿Oue haces?" 
¡RETURN 

710 ' | Eriador (1) I 
720 ST=1:F=F-2:60SUB 840 
730 GOSUB 830 
740 GOSUB 2980 

750 LINE(0,0)-(140,120),7,BF:CIRCLE!30,2 

0).5.11.,.1.3:PA1NT(30,20),11:CIRCLE!80, 

30),15.15,,,.2:PAINT(80.30),15 

760 DRAITBH0, 80S40C3M+4, -2M+3, +2N+2, -3H+ 

2,+3H+3,-2D3L14Ul":PAINT(90.60),3 

770 LINE(0,90)-(140,120),3,BF 

780 PUT SPRITE 1, (20,100) , 12, UPBT SPRIT 

E 3,(15.95), 12,1:PUT SPRITE 4,(110,100), 

12,1 

790 PRESET (20, 130) : PRINTK1 , "Estas en Eri 
ador, "¡PRESET(20,140)¡PRINTI1, "titira di 



Hobbits":PRESET(20. 150) :PRINTI1, "a«i gos 
.":60SUB 700 

800 A$=INKEY$:IF A$="" THEN GOTO 800 ELS 
E IF A$="N" THEN GOTO 960 ELSE IF A$="S" 

THEN 60T0 1580 ELSE IF A$="E" THEN GOTO 

860 

810 IF As="P" AND PERH<3 THEN F=F+4:PERH 
=PERN*1:60SU8 850:GOTO 740 
820 GOTO 800 

830 IF F<1 THEN GOTO 3180 ELSE PETURN 
840 IF ANILLO=0 THEN GOTO 3180 ELSE RETU 
RN 

850 PRESET ( 15, 160) : PRINTUl , "Te han regal 

ado":PRESET(15,170):PRINTIl,"una llave ■ 

agica":PRESET(172.130):PRINTIl,"Llave":L 

LAVE=1:F0R TT»i TO 1500:NEXT:RETUPN 

860 ' | Hobbiton (2) I 

870 ST«2:F«F-2:XÍ=-9:YÍ=16:DX=70 

880 GOSUB 830 

8°0 GOSUB 2970:LINE(0,0)-d40.80),5,BF:L 
INE(0.80)-(140,120).4,BF:FOR I7.=l TO 10: 
XX=X7.H5:Y7.=YXfl0:LINE(X5.120)-(Yy..80),l 
: NEXT; FOP I7.= l TO 5:DZ=DM0:LINE(0.DX)- 
C14#.0X),ltNEX7 

900 DRAN"BH40.79S4C6U20E5R5M+5.-57R10M+5 
,*rR5P5D:0L10U15L50Dl5L10-|PAINT(«:,78) 
,6: LINE (50, 65) - (72, 79) . 1 . BF: LINE (47, 53) - 
(75,53), 1:LINE(56.45)-(63.52).13.BF 
910 PRESET (20, 125) ¡PRINTll, "Estas en Hob 
biton. ":PRESET(20. 135) ¡PRINTll, "Tu casa. 
Hay un":PRESET(20,l¿5):PRINT0l, "anillo e 
n el cofre":PRESET(20.155!;PPINTtl,"que 
esta enciia":PRESET(20,l65) ¡PRINTll, "de 
la chinenea." 

920 PRESET(20,185):PRINTIt."¿Que haces?" 

"30 A$=INKEY$:IF A$="" THEN GOTO 920 ELS 

E IF A»="N" THEN GOTO 960 ELSE IF As="E" 
THEN GOTO 1080 ELSE IF As="S" THEN GOTO 
1580 ELSE IF Al«"C" OP Af»"A" THEN AÑIL 

LO=1:PRESET(172,120):PRINTI1. "Anillo" 

940 IF A»="0" GOTO 710 

950 GOTO "30 

960 ' | Desierto del Norte (3) I 
970 F=F-4:60SUB 840 
980 GOSUB 830: GOSUB 2970 
9'0 LINE(0,0)-(140.120),7,BF:CIRCLE!30,2 
0),5,9.,,1.3:PAINT(30,20).9:DRAN"BH0.B0S 
40C10M+4, -2H+3, ♦2H*2, -3H+2. +311+3. -2D3L14 
U1":PAINT(90.60),10 
1000 LINE(0,90)-(140,120),11.BF 
1010 DRAN"BH43, 118C2S14R1U4R2U4L1D3L1U5L 
1U2L1D5L1U1L103R2D5":PAINT(45.115>,2 ■ 
1020 PRESET(10,130):PRINT#l,"Estas en el 
Desierto":PRESET(10,140):PRINTIl,"del N 
orte. ": PRESET ( 10, 150) : PRINTI1 . "Sol o pued 
es ir hacia":PRESET(10,160):PRINTIl,"el 
Sur.": GOSUB 700 

1030 A»=INKEY*:IF A$="P" AND PERH<3 THEN 



F=F-4: PERH=PERH+ 1 : GOTO 980 
1040 IF A$="S" THEN GOTO 1050 ELSE GOTO 
1060 

1050 ON ST GOTO 710,860,1080.1230 

1060 IF A$="H" AND HELP=0 AND F<«2 THEN 

F=F+8:HELP=1:G0SU8 3160 

¡070 GOTO 1030 

1080 ' | Rivendel (4) I 

1000 ST*3:0=62:I!«52 

1100 F=F-2:6CSUB 840: GOSUB 830: GOSUB 298 
0 

1110 LINE(0,0)-(140.120!.7,BF:DFAH"BH0. T 
0S40C3M+3. -2H+3. +1H+3, -2H*2, *2M*2 . -2N+1 , 
♦lD3Llí":PAINT(40,70).3:LINE(0.80!-'!40. 
120) ,3.BF:PL'T SPRITE 1,(20.1001,2,1: 
1120 CIPCLEí80.20).5.10...1.3:PAINT(80.2 
0) . 10:CIRCLE(60.30) .15,15... .2:PA!N7C68, 
30). 15 

1130 DRAN"BN50.!20C15S40U3R2D312":PAINT( 
60, 100) , 15. 1:DRAW"F"!71, 120S40C15R6Ü3L6D3 
":PAINT(80, 119), 15.1 

1140 LINE¡5M07)-!63,120:.6.BF:LINE'O0, 
100)-'110.110>,4,BF:LINE'7:. C ?'- 72,12fJ 
,1 

t 150 ÜRAH" BH50. 8°S40C8PS«- 1 . -2L&M- !.*2»l 
PAINT(80,80!.8:FOR U=l T 0 6:0=0+10:11=11 
+10:LINE(O.89)-'II,70),6:NEXT 
1140 PRESE T '20. 130! :PRINTI1. "Estas en Ri 
vendel . "¡PPESET'20. 140) ¡peiNTIl. "Der'.r: 
hay algo":PRESET!20.150>:PRINTIl,"para t 
i. Pero la ":PRESET(20,160!:PF:INT)»l." ? uer 
ta esta cerrada":PRESET(20. 195) : C F¡NTI1, 
"¿Que haces?" 

1170 As=INKEY*:IF As="" then GOTO M7I E 
LSE IF As="N" THEN GCTO 960 ELSE IF A$=" 
O" THEN GOTO 860 ELSE IF As="E" THEN GOT 
O 1230 ELSE IF As="S" THEN GOTO H30 
1180 IF A*="0" AND PEMK3 THEN ^F+^PEP 
H=PERM+1:G0T0 1080 

1100 jf a$="A" AND LLAVE=! THEN GOTO 120 
0 ELSE GOTC 1220 

1200 PRESET'20. 170! :PPINTI¡.»P'JEPTA ABIE 
PTA":LLAVE=0 

1210 PPESET(172.140):PPINTIl."Cota prot. 

":C0TA=1 

1220 GOTO 1170 

1230 ' | Bosque Negro (5) I 

1240 ST=4:F=F-2 

1250 GOSUB 830:6OSUB 2980 

1260 LINE(0,0)-'140.120).4.BF:PUT SPPITE 

3,(10. 100). 1,!:PUT SPRITE 4. '20.06), 1,1 
:PUT SPRITE 5. (35, 103) . 1, 1: PUT SPPITE 6. 
(50,04), 1,1:PUT SPRITE 7, (81,88) ,1,3: PUT 

SPPITE 8. (100,108). 1.1:PUT SPRITE o,U2 
5,85),1.1:PUT SPRITE 10.(113,601,1,1 
1270 PUT SPPITE 11, (43,64), 1,1:PUT SPRIT 
E 12, (60.70). 1.1¡DRAN"BH110,10C11S4F5H-1 
5, +20M-2, -3M-8, +13M-2. -3H-8, +7N+10, -20D1 



23 



Programa 



«♦ll,-2IÜlM*ll,-2fMPAIHT(ill,t5),n 

1290 LINE(87,65)-!B7,?0),1 

<2°0 CIRCLE(20.20),5,10,,.1.3:PAINT(20,2 

0 • . :0¡CIRCLE¡35,25) , 25, l, , , . 15:PAINT<35, 
25).1:CIRCLE!100,20!,30,1,...1:PAINT(100 
.20).! 

1300 IF ]J=1 THEN GOTO 1380 

1310 PRÉSET(20, 130» ¡PRINTIl. 'Estas en el 

Bosaue":PPESET!20, 140) ¡PRINTIl, "Negro.U 
na enorie":PRESET(20. 150) ¡PRINTIl. "arana 

esta a punto" ¡PRESETI 20. 160) tPRINTtl . "d 
evorarte. ":PRESET(20, 185) ¡PRINTIl. "¿Que 
haces"" 

1320 A$=INKEY$:IF »<>•«" AND AIO'P" AN 

D AIO'H" THEN 60T0 1320 

1330 IF A«="H" ANO HELP=0 AND F=<2 THEN 

F=F*B:HELP=1:60SUB 3160 

1340 ¡p An"H'' AND COTA»! THEN P-F-2i 60S 

UB B30:SOSUB 2970¡ JJ=1:60T0 1260 

1350 JF A$="P" THEN 60T0 1390 

1360 IF A*="T AND COTA=0 THEN GOTO 1390 

I"-? SOTO 1320 

1330 llNE'0.12r-M20.1S4),l,BF:PUT SPRI 
TE :. 140,145), 15,3:PRESET(78,145)sPRINTI 
1,"=":P'JT SPRITE 2. (110, 140! . 15,2:PPESET 
I20,1B5»:PR1IÍTÍ1,»¿Quí haces"":GOTQ \m 
1790 PR£SET(20,170):PRIHT01 l «Te ha «eren 
ía¿o.":FCP TT«1 TO 2000:NEXT:GOSUB 3180 
1400 PRESET <20, 195) ¡P9INTI1, "¿Que haces" 
":B$=!NKE V $:!F B*="" THEN GOTO 1400 
1410 IF Bs="N" THEN GOTO 960 ELSE IF B*= 
"O" THEN GOTO 1090 ELSE IF Bs="S" THEN G 
OTO l"9fl 

1420 GOTO 1400 

143Í ' | Acebeda '6) I 

14<S F=F-2:ST=6 

1450 GOSUB 830:GOSUB 2'80 

1460 LINE(0.0i-(!40.120).7,BF:CIRCLE(20 I 

151.5.11... 1.3:PAINT(20. 15). 11:CIPCLE'10 

0.20 , ,20.14,.,.2:PAIN T (¡«0.20),14 

1470 SF^"B(10.90C4S4H30,50H+12,*!3H*;.-3 

**2.M0H*l5.-40H*2.+2H+2,-2H*2.*2H*2,-2H 

+2, +2Í1+2, -2f!*5, +20H+2,-2H*4, +20M+2, -4M+3 

.*:5M:i0.40H+20.*30Ml40.50D40L!40U10":PA 

INT<30,70),4 

1480 DRAN'BN60. 2BS4C15M*7,-l7N*5,+17H-2, 
•I--:. -2l-2.*2H-2,-2H-2.+2H-2.-2 , :PflIHT( 
M,25),15 

1490 LINE(0,90)-(140.!20).2,BF 

1500 PUT SPRITE 1,(40, 100). 12,1 

1510 PPESET(20,130):PRINTIl. "Estas en Ac 

ebeda. ":PRESET(20, 140) ¡PRINTIl, "Si quier 

es ir al":PPESET(20, 150) ¡PRINTIl, "Este d 

eberas cruzar":PRESET(20, 160) ¡PRINTIl, "e 

1 Caradhr as. 1 a" ¡PRESET (20, 170) : PRINTIl , " 
cimbre nevada. ■ : PRESET (20, 185! : PRINTIl , ■ 




¿Que haces"" 
152? AIsWKEYI 

153? ! c A*="E" THEN G0 T 0 ¡9?0¡F=F-4 



¡54£ IF A*="0" THEN GOTO 1580 ELSE IF Al 
= "N" T HEN GOTO 1090 ELSE IF A$="S" THEN 
5C T C 1 7 50 

1550 IF A$='H" AND HELP*0 AND F"<2 THEN 

F=F*8:HELP=1: GOSUB 3160 

1560 : c A$="P" AND P£R«<3 ^HEN F=F+2:PEP 

«•PERtMiWTO 1450 

1570 GOTO 1520 

1580 ' | T ierras Brunas (7) I 

15 G 0 ST=7:F=F-2:GCSUB 940 

1600 GOSUB 930: GOSUB 2 Q 70 

1610 LINE'0.0)-(140.120). ! ',BF:LINE!0.5)- 

1141,21), I3,IF|L1NI(#,3I>-(14#,4|1, 13,10 

;L!NE(0.4°)-!140,55),!3.BF:LINE(0,70)-!1 

40, 120), 3. BF 

1620 CIRCLE'125.50).6.!0,.,!.3:PAINT(125 
,50).¡0:CIRCLE(115,58).15,8,,,.2:PAINT(1 
15, 59). 8 

1630 PSET(0.70):FOP 1=1 TO 14:DRAN"C4S20 
ElFr¡NEn:DRAN"BM0.70C4S4D2R140U2":PAIN 

T(5,7l),4 

1640 DRAN"BH0,80C5S20P6HM,MR6N+6,+2N*5 
.-2H*4,t2D2H-4.-2M,*2B-6,-2L6H-l,-lL5U 
2":PAINT!10,85),5 

1650 FOR l«l TO 10:X=INT(RND(l)tll0+30)¡ 

Y=1NT(RND(1! 110+110) ¡PSET(X.Y) :DRAN"C12S 

10NHlNUlNEl":NEn 

1660 PUT SPRITE 0.(15.1001,12.1 

1670 PRESET ( 15, 130) : PRINTIl , "Estas en Ti 

erras":PRESET(15, 140) ¡PRINTIl, "Brunas. La 

s ■onta!as":PRESET(15,150):PRINTIl,"que 



ves al trente":PRESET(15.160):PRINT*l,"s 
on las de Moria.":PRESET(15.170):PRINTIl 
/situadas al Este" 

1680 PRESEK20, 185) : PRINTtl . "¿Que haces? 

II 

1690 A$=INKEY$ 

1700 IF As="N" THEN GOTO 1730 ELSE IF Al 
="E" THEN GOTO 1740 ELSE IF A»="P" AND P 
ERH<3 THEN F=F+3: PEP«=PER«+ 1 : GOTO 1600 
1710 IF A$="H" AND HELP=0 AND F=<2 THEN 
F=F+8¡HELP=1: GOSUB 3160 
P20 GOTO 1690 

1730 I c ST=2 THEN GOTO 860 ELSE GOTO 710 
P40 IF ST*6 THEN GOTO M30 ELSE GOTO 17 

50 

1750 ' | doria (8) I 

1760 F=F-2:ST=8:60SUB 840 

1770 GOSUB 830: GOSUB 2970 

1780 LINE(0,106)-(140,1!0),8.BF:LINE(0,4 

0!-(15.43!,10,BF:DPAW"BN13.58C10S20H*3.- 

6L2H-l,*6*lPAlKT(16,S0),10 

1790 NN$="R5l1+2. -5(1-4, -7B-1 , +5H-1 , ♦1H18, 

25":DRAN"BH18,26C8S8)!NN$;":PAINT(20,24), 

8¡PUT SPRITE 0,(20, 15), 10,5 

1800 CIRCLE!70,60),5,6,,,.9¡CIRCLE(90,60 

),5,6,...9:PAINT(70,60),6:PAINT(90,60!.6 

1810 LINE(67,55>-(73,65).l:LINE!93,55)-( 

87,651,1 

1820 DRAN"BM75,50C6S20R4E1F1G1F1G1F1G1F2 

G1H1G2H1G1H1G1H1H161H1E2H1E1H1E1H1E1F1R2 

I 

1830 LINE (70, 78) - (90, 78) . 6: C0*="C14S4R4!* 
-2, +4M-2, -4" ¡ PSET (73, ?9) ¡ ORAN COI¡ PAINT ( 
75.80),14;PSET!82,79)¡DRAN C0I:PAINT(B3. 
79), 14 

1840 IF PP=1 THEN GOTO 1950 
1850 PRESET(20, 120) : PRINTIl , "Estas en la 
oscura":PRESET(20.130):PRINTIl, "Noria. U 
n Balrog, ":PRESET(20, 140) ¡PRINTIl, " (espi 
ritu maligno) ":PRESET(20, 150) ¡PRINTIl, "v 
a a «atarte. .."¡9RESET(10,160):PRINTI1," 
.NO PUEDES SALIR!" 

1860 PRESETI20, 185) ¡PRINTIl, "¿Que haces? 

■ 

1870 AIMNKEYI 

1880 IF A$0'!r AND A$<>"P M AND AIO'H" 
THEN SOTO 1870 

1890 IF A$="H" AND HELP=0 AND F< 1 1 THEN 
F=F*10:HELP=1;6QSUB 3160¡6OTO 1870 
1900 IF A$='rT AND CDTA=1 THEN F=F-10¡GO 
SUB 830: GOSUB 2970:PP=1:6OTO 1780 
1910 IF A$='P- THEN GOTO 1940 
1920 IF A$='!T AND COTA=0 THEN GOTO 1940 
1930 IF A$="H" AND HELP=i THEN GOTO 1870 
1940 PRESET (20, 170) : PRINTIl , "Te ha latad 
o../:FOR TT=1 TO 1000:NEXT:GOTO 3180 
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GRAN CONCURSO 

BOOGA 
BOO 



El ganador del concurso Booga-Boo, organi- 
zado por la firma Mind Games España, S.A. 
y MSX CLUB DE PROGRAMAS es: 

DAVTOGENER 

que ha obtenido 

297.960 PUNTOS 



BOOGñ-BOO 

2979(6 >AUI» GENER 
008959 LUIS GENEP 

oeoeso david oehef 

000380 LUIS GENEP 
O O O O O O 



El ganador -David Gener Almenar, de Va- 
lencia- se hace acreedor al premio de 
125.000 pts. en software de Mind Games Es- 
paña, S.A. patrocinadora del concurso y ma- 
terial didáctico de informática MSX, según 
el artículo 4 de las bases oportunamente pu- 
blicadas. 



JAVIER i.riHwim 



aponer múüca 4 una. dos o eres 
orsamzar fus propia mn ons de ~ 



LOS SECRETOS DEL 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN L Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 





Deseo me envíen el libro de los secretos del MSX, para lo 

¡ cual adjunto talón de 1.500 ptas. a la orden de MAN- 

! HATTAN TRANSFER, S.A. 

I Nombre y apellidos 

i Calle n.° 

i Ciudad CP 

! Este boletín me da derecho a recibir los secretos MSX en 

| mi domicilio libre de gastos de envío o cualquier otro 

¡ cargo. No se admite contrareembolso. 

I Importante: Indicar en el sobre MANHATTAN 
i TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 
Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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Programa 



1951 PRESET ( 20 , 1 40 ) : PR I NTt 1 , " BALROS *":P 

UT 3PRI T E 2,(130. 133). 15, 2: PRESET ( 20, 1B5 
):PRINTfl,"¿Que haces'" 
1960 BI=INKEY$ 

1970 IF B*="N" THEN GOTO 1430 ELSE IF Bt 
'"O" THEN 60TO 15B0 ELSE IF Bt="E" THEN 
60T0 2230 
1980 60T0 1960 

1<">0 ' | Tierras Asperas (9) I 

2000 F=F-4: GOSUB 840 

2010 GOSUB 830:GOSUB 2970 

2020 LINE(0,0)-(140,120),13,BF:CIRCLE(30 

,67).10,8,6.28.3.26,l:LINE(20,69j-(40,6° 

). 3: PAINT (30.65), B:CIRCLE(5f,M), 15,9, Pl 

.2;PAINT(50,50>,9 

2030 LINE(0,66)-(140,120),11,BF 

2040 FOR 1=1 TO 15:X=INT(RNÜ(l)tl50-30): 

Y=INT(RND(1) 130+90) : PSET ( X, Y) : DRAN'Sl 0C1 

2NU1NE1NHI"¡NEXT 

2050 DRAH"BM100, 120C10S4H+7. -24M+1 . +2M+4 

, -1 2h>2, *3H+4, -24H+6. -8H+1 . +2H+6, -1BM+?, 

+16D63L40":PAINT(110,100),10 

2060 IF GOLLUH=0 THEN GOTO 2170 ELSE IF 

60LLUH*1 THEN GOTO 2210 

2070 PRESET(10,130):PPINTI1, "Estas en la 

s Tierras*:PRESET(10,140):PRINTIl,"Asper 

as.Gollu» esta"¡PRESET(10.l50);PPINTIl," 

en la «ontaía y va":PRESET(10,160):PRINT 

II. "a robarte el Anillo" 

2080 FOR TT=1 TO 3W0:NEXT: A=10 

2090 PRESET (15. 175) :PRINT#1. "Tienes 9 se 
g. ':PRESET(15. 185) ¡PRINTIl, "para decidir 

si lo natas o no* 

2100 TME=0¡FOR 1=1 TO 625:NEXT¡A=INT(A- 
TINE/50' 

2110 C*=INKEY$¡IF C*="H" THEN GOLLUM=0:F 
=F-4:60TO 2010 

2120 IF A*="H" AND HELP=0 THEN F=F+2:60S 
UB 3160 

2 1 30 L I NE ( 225 . 1 65 ) - ( 245 , 1 80 ) , 1 , BF : PRESET 
(230, 1'0) ¡PRINTIl, A 

2140 IF A=0 THEN GOTO 2150 ELSE GOTO 210 
0 

2150 PRESEK230, 170) : PPINT41 , A 

2160 60LLUH=1¡60T0 2010 

21-0 PRE5EK20, 150 ) : PRINTtl , "Gol 1 u« =":P 

UT SPRITE 3,(90,145).15,2:PRESET(20,185) 

:PRINTIl,"¿Oue haces?" 

2180 B*=INKEY$:IF B*="N" THEN 60T0 1230 

ELSE IF BI="S" THEN GOTO 2820 ELSE IF Bl 

=•0" THEN 60T0 1431 

2190 IF B*="H" AND HELP=0 THEN F=F+5:G0S 
UB 3160 

2200 60T0 2180 

2210 PRESET ( 15, 130) : PRINTf 1 , "Bol 1 ub te h 
a robado":PRESET(15,140):PRINTIl,"el Ani 
lio y ha":PRESET(15,150):PRINTIl, "huido 




a Hordor . " : PRESET (20. 185) : PRINTIl , "¿Que 
haces'" 

2220 GOTO 2180 

2230 1 | Lothlorien (10) I 

2240 F=F-2: GOSUB 840 

2250 GOSUB 830: GOSUB 2970 

2260 LINE!0,0)-(140,120),7,BF;LINE(0.50> 

-d"0. 120!. 2,BF:CIRCLE(110,20), 5,11, ,,1. 

3:PAINT(110,20),11 

2270 DRAN"BH0, 52C4S10E4M+ 1 , +3M+3, -2M30, 5 
2I10,52":PAINT!4.50),4 
2280 DRAN"BH140, 70C4S20H-4. +4N-4, +2H-4, + 
4R2H+4, -3M+4, -2H+2, -2U2" ; PAINT (135, 80) , 4 
2290 PUT SPRITE 4. (110.65), 10,4:PUT SPRI 
TE 6,(114,71),14,6:PUT SPRITE 0,(120,100 
),10.4:PUT SPRITE 2,(124,1061,14,6 
2300 PUT SPRITE 7, (70.90) . 10,4:PUT SPRIT 
E 3, (74,96), 14,6 

2310 PUT SPRITE B, (85, 70) , 10, 4: PUT SPRIT 
E 9,(89,761,14,6 

2320 PUT SPRITE 10, (40,80) ,10,4:PUT SPRI 
TE 12,(44,861,14,6 

2330 PRESETU0, 130) ¡PRINTIl, "Estas en Lo 
thlorien.":PRESET(10,140):PRINTIl,"tierr 
a eHica de":PRESET(10.150):PRINTIl, , arb 
oles dorados. ":PRESET(20, 185) ¡PRINTIl, "¿ 
Que haces?" 

2340 IF JH=1 THEN GOTO 2400 
2350 As=INKEY| 

2360 IF As="0" THEN GOTO 1750 ELSE IF Al 
="S" THEN GOTO 2420 

2370 IF AI="P" AND PERIK3 THEN F=F+6:FR= 
1:PERH=PERM+1¡60T0 2390 
2380 GOTO 2350 
2390 JH=1:60T0 2250 

2400 PRESET (20, 160) :PRINT#1 , "Te han rega 
lado un" ¡PRESET (20, 170) ¡PRINTIl, "frasco 
■agico." 
2410 GOTO 2350 




2420 ' I Rohan (11) I 

2430 F=F-2:ESP=1 

2440 605UB 830: GOSUB 2980 

2450 LINE(0,0)-(140,120),7,BF:CIRCLE(30, 

30).5,U..,:.3¡PAINT(30,30),11¡CIRCLE<60 

,40).15.15,,..2:PAINT(60.40),15 

2460 DRAW"BM0, 70C4S40M+2. -1H+2, *2«*1 . -1M 

*1 . *2M+1 , -3M+1 , +2H*3, -2M*1 . +1M+2, -4D6L14 

U4":PAINT(20.65),4 

2470 PAINT(130,65),4 

2480 PUT SPRITE 0. (30. 100) , 12, 1 

2490 LINE(0,90)-(140.120).2.BF 

2500 FOR 1=1 TO 10 

2510 X=INT(RND(1)»!40)¡Y=INT(RND(1)I25H 
95 

2520 A«="C12S8NH1NU1NE1" 
2530 PSET(X,Y):DRAN Al 
2540 NEXT 

2550 PRESET ( 10, 130) : PPINTIl , "Estas en Ro 
han." ¡PRESET (10, 140) ¡PRINTIl, "Aragom, re 
y de los":PRESET!10.150);PPINTIl, "hombre 
5 te ha riga-"¡PRESET(10,160)¡PRINTIl,"l 
ado una poderosa":PPESET!10,170):PRINTI! 
. "espada. ":PRESET!20, 185) ¡PRINTIl, "¿Que 
haces'" 

2560 AI=INKEYI 

2570 IF AÍ="P" AND PERH<3 THEN F=F+4:PEP 
«=PERM+1:G0T0 2440 

2580 IF A*="N" THEN GOTO 2230 ELSE IF A$ 
="S" THEN GOTO 2600 
2590 GOTO 2560 

2600 ' | Minas Horgull (12) I 
2610 F=F-2 

2620 GOSUB 830: GOSUB 2980 

2630 LINE(0,0!-(140,120).4.BF 

2640 LINE(0,80)-(140,120),12,BF¡CIRCLE(8 

0, 20! , 10, 10, , , 1.3:PAINT (80, 20) , 10:CIRCLE 

(83,20),9,4,,,1.3:PAINT(83,20),4 

2650 A$="S20H+4, +4M+1, +4F2H+4, +2M+1 , +2N+ 

3,+2K+l,+2" 

2660 DRAM "BH20.0C10XAI;L20":PAINT!30.60 
),10:DRAN"BH20,0C11XAI¡' 
2670 IF AR=0 THEN GOTO 2770 
2680 LINE(120,0)-(120,65),1 
2690 PUT SPRITE 0, (113,63), 1,3 
2700 PRESETÜ0, 130) ¡PRINTIl, "Estas en Ni 
ñas" ¡PRESET (10, 140) ¡PRINTIl, "Horgull ,pue 
rta de":PRESET(10,150) ¡PRINTIl, "Horia.Un 
a terrible"¡PRESET<10,160>¡PRINT»l,"ara¡¡ 
a te cierra "¡PRESET(10, 170) ¡PRINTIl, "el 
paso. ": PRESET (20, 185) ¡PRINTIl, "¿Que hac 
es?" 

2710 AI=INKEYI 

2720 IF A*="N" THEN GOTO 2420 

2730 IF A*="H" AND C0TA=1 AND FR=1 AND E 

SP=1 THEN AR=0¡6OTO 2760 

2740 IF A*="H" AND COTA=0 OR AI="H" AND 
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FP=0 OR A*="M" AND ESP=0 THEN GOTO 3180 
2750 GOTO 2710 
2760 GOTO 2620 

2770 PUT SPRITE 3, «40. 136) , 15, 3: PRESET (7 
5,140):PRINTI1,"=":PUT SPRITE 4.(100,133 
) , 15 , 2 : PRESET ( 20 , 1 85 ) : PP INT#1 , " ¿Que hace 

5?* 

2790 Af=INKEY» 

2790 1F A*="N" THEN GOTO 2430 ELSE IF A$ 

»*E" THEN GOTO 2820 

2800 GOTO 2780 

2810 ' | Morder (13) I 

2820 F=F-1 

2830 GOSUB 830:GOSUB 2980 

2840 LINE(0.0)-(140,80),4,BF:C!RCLE<20,2 

01.10. 10,,. 1.7:PAINT(20.20).10:CIRCLE(22 

,201,9.4. ,.1.3:PAINT!22,20!,4 

2850 DRAW-BM63, 55C6S3E15M+8, -3H+8. -13H+3 

, +3M+12. -26M+15, +23E4M+37. +60L100U33" 

2860 PAINT('5,50!.6 

2870 DPAH"8M0, 70C1S20E2F 1H+2. -3F2E2W*1. ♦ 
HHt,-2H+V5E2IM , *3M+é , -5F2E1M+ 1 . : P 
AINT (20,30).! 

2880 CIRCLE (60, 35) , 18, 1 , , . . 2: PAINT (60. 35 
),l:CIRCLE(120,15),15,l,,,.18¡PAINT(120, 
15).1:C!PCLE(80,10),20,1,,,.15:PAINT!80, 
10), 1 

28"0 PRESET(10,Ü0):PPINT(!1, "Estas en fio 
rder, "¡PRESET(10, l2f):PRINTtl . "tierra de 
Sauron":PRESET(10,130):PRINTIl,"el aali 
gno. " 

28<»5 IF COTA=0 THEN PPESE T ! 10, 140) ¡PRINT 
11,'Pero por desgracia":PRESET(10.150):P 
RINTIl.'no tienes los":PRESET(10,160):PP 
INTI1 , "objetos necesar ios":PRINTI¡ , "oara 

sobrevivir. ":FQR T>1 TO 2000: NEXT: GOTO 

3180 

2900 IF G0LLUN=1 THEN GOTO 2940 

2910 PPESET ( 10, 140) ¡PRINTIl, "Debes arroj 

ar er¡PRESET(10,150):PRINTIl, "Anillo al 



Monte" ¡PRESET (10, 160* ¡PRINTIl, "del Dest 
ino con la";PPESET(10,170!¡PPINT«l."tecl 
a FO" 

2920 Af=INKEY$:lF ASO"T" THEN GOTO 2°20 
ELSE GOTO 2960 

2930 F=F-2: GOSUB 830: GOTO 2960 
2°40 PRESET(10,140)¡PRINTIl,"Gcllu* se h 
a caido":PPESET(10.150)¡PPINTIl."al Bont 
e del Destino"¡PRESETil0.l60)¡PRINTIl."c 
on el Anillo."¡PRESET'10.170):p9INTit!.»T 

E HA SALVADO" 

2950 FOR TT»1 T o 2500: NEXT 

2960 60T0 3330 

2970 ' | Subrutma principal I 

2«80 SCREEN 2: COLOR 15,1.1:CLS 

2990 PRESET!T.l):PR!N T ll."n=ir Oeste" 

3000 PRESETÍT, 1 1 ) : PRINT#1 . "F2=ir Norte" 

3010 PPESET(T, 21) ¡PRINTIl, »F3=ir Sur" 

3020 PRESET (T, 31) ¡PRINTIl, "F4=ir Este" 

3030 PRESET (T,41):PRINTfl, "F5=Perüianecer 

30*0 PRESET (T, 51) ¡PRINTIl, "F6=Mata r " 
3050 PRESET (T. 61 ) ¡PRINTIl , "F7=Abr ir " 
3060 PRESET (T, 71) ¡PRINTI!. "FS^Coger" 
3070 PRESET !T, 81) ¡PRINTIl, "F9=Arro jar" 
3080 PRESETÍT, 91) ¡PRINTIl, "Fl?=Helo" 
3090 PRESET (170, 105) ¡PRINTIl, "Objetos" :P 

RESET(170,113):PPINTI1." " 

3100 I=108:FOR L«l TO 6: 1=1+8: PRESET ( 166 
,I)¡PRINTIl."l"¡NEn 

3110 IF ANILLOS THEN PRESET(172. 120) :PR 
INTI1, "Anillo" 

3120 IF LLAVES THEN PPESET ( 172, 130'¡PPI 
NT|l,"Lla»e" 

3130 IF C0TA=1 THEN PRESETÍ172. 130) ¡PRIN 
Til. "Cota prot." 

3140 IF FR*1 THEN PPESETÍ172. 140) iPRINTI 

I. "Frasco* 

3150 IF ESP=1 THEN PPESET(172. 150) sPRIHT 

II, "Espada" 



3160 PRESET(145,170!¡PRINTI1,"F:":LINE(! 

65,168!-<165+(Ft5).l78),5.BF 

3170 RETURN 

3180 ' | Subrutina de la «uerte I 

3190 SCREEN 2:C0LCR 15, 1 , 1 : CLS 

3200 PUT SPRITE 2, (112,50), 1,2 

3210 PLAY"T250V15S8M30000O2L4AAAF1GGGE1" 

3220 L!NE'P0,30)-(150,140).13.BF 

3230 DRAN"BWP0.30S4C!F10BM!50.30G10BH150 

, 140H10BH 5 0, 140E10IJ90P40OO0L40" 

3240 IF F<1 THEN PRESET'40. 1EÜ :PRIN T I1, 

"Te quedaste sin fuerzas. "¡GOTO 3260 

3250 PRESE T í2t\192):PPIN T *l,"Ne tenias e 

l eauipo apropiado." 

3260 PRESET!100.10):PRINT|!."R.:.P.- : PRE 
SETI80, 150) ¡PRINTIl. "LA PALMASTE" ¡PPESET 
'40, !64> ¡PRINTIl, "DESAPARECIDO EN COMBAT 
E" 

3270 POP TT=1 TO 3000:NEr • 

3280 SCREEN 0:COLOR 15,1. 1 : CLS 

3290 LOCATE 2.6:PRINT"g U ;eres volver a , 

ugar (s/n)" 

3300 B«=IN^EV$: I* 7 ?$="S" CP BS="s" THEN 
GOTO 500 

3310 IF Bt="N" OF B«=*n" THEN DEF'J3R=b2: 

PRINT USR(0):CLS:KEY ON: END 

3320 IF B$<>"S« AND BsOV AND B$ "N" 

AND BtO'n" THEN GOTO 3300 

3330 ' | Subrutina fin»! del juego I 

3340 Gl$="n"0V!5O4SlM50000D2GlP4EiD4L2N 

48G1F4E4D4L2N43G1F4E4F4D1" 

3350 G2M"T190V12O5S1M50000D251F4E4D4L2N 

60G1F4E4D4L2N60G1F4E4F4D1" 

3360 PLAY G1S,G2$ 

3370 SCREEN 0: COLOR 15. 1,1 ¡CLS 

3380 LOCATE10.5:PRINT»,¡,I1UY BIEN! " - : LO 

CATE 8,10:PR!NT":LO HAS CONSEGUIDO ":L0C 

ATE 10.20:PRIN T "Pulsa una tecla" 

3390 A*rINKEV,:IF Al="" THEN GOTO 3360 

3400 CLS: GOTO 32'0 



Test de listado i 



10 


- 58 


170 


-250 


330 


-170 


490 


- 58 


650 


-131 


810 


-113 


970 


-162 


1130 


- 16 


1290 


-251 


1450 


- °6 


1610 


-MÍ 


20 


- 58 


180 


- 16 


340 


-238 


500 


-253 


660 


-237 


820 


-154 


980 


- 86 


1140 


-122 


1300 


-250 


1460 


- 8 


1620 


-131 


30 


- 58 


190 


-190 


350 


- 31 


510 


- 51 


670 


-132 


830 


- 37 


990 


- :: 


1150 


- 81 


1310 


-194 


1470 


- 33 


1630 


- 70 


40 


- 58 


200 


- 93 


360 


- 40 


520 


- 14 


680 


- 4 


840 


-156 


1000 


- 49 


1160 


- 18 


1320 


- 9 


1480 


- 20 


1640 


-125 


50 


- 58 


210 


- 60 


370 


-176 


530 


-1*8 


690 


-246 


850 


-192 


1010 


- 96 


1170 


- 36 


1330 


-180 


1490 


- 42 


1650 


- 35 


60 


- 58 


220 


-187 


380 


- 76 


540 


-236 


700 


-121 


860 


- 58 


1020 


- 96 


1180 


-160 


1340 


- 8 


1500 


-100 


1660 


-74 


70 


- 58 


230 


-116 


390 


- 10 


550 


- 83 


710 


- 58 


870 


-194 


1030 


-179 


1190 


- 46 


1350 


- 87 


1510 


-143 


1670 


- 71 


80 


- 58 


240 


-232 


400 


-255 


560 


-225 


720 


-130 


880 


-220 


1040 


-159 


1200 


- 3 


1360 


-113 


1520 


- 64 


1680 


-177 


90 


- 58 


250 -179 


410 


-192 


570 


-131 


730 


-220 


890 


- 31 


1050 


-182 


1210 


-226 


1370 


-196 


1530 


- 98 


1690 


- 64 


100 


- 64 


260 


-110 


420 


- 63 


580 


-167 


740 


- 74 


900 


-103 


1060 


-180 


1220 


- 45 


1380 


-170 


1540 


-172 


1700 


-177 


110 


-227 


270 


-131 


430 


-171 


590 


-246 


750 


- 23 


910 


-132 


1070 


-161 


1230 


- 58 


1390 


- 38 


1550 


-180 


1710 


-180 


120 


-181 


280 


- 84 


440 


- 13 


600 


-109 


760 


-165 


920 


-177 


1010 


* SI 


1240 


-101 


1400 


-120 


1560 


- 14 


1720 


- 55 


130 


-160 


290 


- 97 


450 


-118 


610 


-238 


770 


- 43 


930 


- 67 


1090 


-109 


1250 


- 96 


1410 


- 59 


1570 


-140 


1730 


- 62 


140 


-232 


300 


-232 


460 


-170 


620 


-131 


780 


-185 


940 


-209 


1100 


- 58 


1260 


- 59 


1420 


- 20 


1580 


- 58 


1740 


-146 


• 150 


-168 


310 


- 29 


470 


-203 


630 


- 92 


790 


-223 


950 


- 60 


1110 




1270 


-122 


1430 


- 58 


1590 


-136 
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1770 


- 36 


1930 


- 81 


2090 


-251 


2250 


- 86 


2410 


-206 


2570 


-242 


2730 


- 12 


2890 


-132 


3040 


-244 


3200 


-115 


3360 - 38 


1780 


-208 


1940 


- 89 


2100 


-104 


2260 


-163 


2420 


- 58 


2580 


-148 


2740 


-154 


2895 


-109 


3050 


-250 


3210 


-253 


3370 - 64 


¡m 


-255 


1950 


- 77 


2110 


- 6 


2270 


-193 


2430 


-163 


2590 


-151 


2750 


- 55 


2900 


- 84 


3060 


- 5 


3220 


-109 


3380 - 84 


1800 


-207 


1'60 


- 65 


2120 


- 28 


2280 


-233 


2440 


- 96 


2600 


- 58 


2760 


-221 


2910 


-238 


307? 


-241 


3230 


- 70 


3390 - 27 


1810 


-143 


1970 


-226 


2130 


-141 


2290 


- 30 


2450 


- 33 


2610 


-128 


2770 


-152 


2920 


-209 


3080 


-219 


32*0 


-130 


3400 - 86 


1820 


-107 


1980 


- 70 


2140 


- 89 


2300 


- 68 


2460 


- 49 


2620 


- 96 


2780 


- 64 


2930 


- 2 


30°0 


- 66 


3250 


- 42 




1830 


- 88 


mt 


- 58 


2150 


- n 


2310 


- 65 


2470 


- 94 


2630 


-212 


2790 


- 41 


2940 


- 81 


3100 


-109 


3260 


- 73 




18<0 


- 66 


2000 


-162 


2160 


-131 


2320 


-252 


2480 


- 89 


2640 


-156 


2800 


-125 


2950 


-170 


3110 


-118 


3270 


-160 




1850 


-166 


2010 


- 86 


2170 


- 19 


2330 


- 96 


2490 


- 42 


2650 


-253 


2810 


- 58 


2960 


-166 


3120 


-202 


3280 


- 64 




1860 


-P7 


2020 


-1°5 


2180 


- 92 


2340 


-248 


2500 


-190 


2660 


-242 


2820 


-127 


2970 


- 58 


3130 


- 3 


3290 


-148 




1870 


- 6* 


2030 


- 25 


¿l v P 


- T) 

ií 


2551 


- 64 


2510 


- 79 


2670 


-107 


2830 




2980 


- 66 


3140 


- 98 


3300 


- 91 




1880 


-183 


2040 


- 81 


2200 


- 35 


2360 


-254 


2520 


- 40 


2680 


- 72 


2840 


-228 


2990 


-165 


3150 


-172 


3310 


- 51 




18°0 


-242 


2050 


- 11 


2210 


-176 


2370 


-149 


2530 


- 77 


2690 


-123 


2850 


- 3 


3000 


-182 


3160 


-200 


3320 


-112 




- 36 


2060 


-160 


2220 


- 35 


2380 


-206 


2540 


-131 


2700 


- 9 


2860 


- 26 


3010 


-243 


3170 


-142 


3330 


- 58 






-127 


2070 




2230 


- 58 


2390 


- 54 


2550 


-138 


2710 


- 64 


2870 


-107 


3020 


- 85 


3180 


- 58 


3340 


-200 


TOTAL! 


1920 


-153 


2080 - 33 


2240 


-160 


2400 


-118 2560 - 64 2720 - 95 2880 


-34 


3030 


■2.6 


3190 


- 66 


3350 -187 


39768 









Conviértete en el más valiente pilo- 
to interestelar. Libra una especta- 
cular batalla y atraviesa el hiperes- 
pacio. Destruye bunkers, minas 
mortales y naves agresoras. Tu des- 
treza y tus misiles puedan salvar la 
vida de los Hornos tiranizados por 
Darus. 

STAR RUNNER ES UN JUEGO 
SENSACIONAL 
Producido por 
Manhattan Transfer, S.A. 
RocaiBatlIe, 10-12 
08023 Barcelona 



MSX a manoi 



i Por Javier Guerrero i 



¿COMO COMPRAR 
UN ORDENADOR? 



Muchas son las preguntas que 
se hace el futuro comprador de 
un ordenador personal. Habi- 
tualmente, el exceso de infor- 
mación que posee no hace más 
que confundirlo; incluso en oca- 
siones, al salir del estableci- 
miento, no sabe en realidad si lo 
ha comprado o se lo han vendi- 
do. Desde estas páginas, inten- 
taremos aclarar sus dudas. 




Un alto porcentaje de comprado- 
res de ordenadores domésticos 
está compuesto por personas 
para las cuales este será su primer con- 
tacto con la informática. En este hete- 
rogéneo grupo tienen cabida desde pe- 
queños comerciantes hasta profesiona- 
les liberales pasando por funcionarios, 
administrativos, educadores y, sobre 
todo, padres de familia 

Las motivaciones que impulsan a es- 
tos grupos son muy diversas: 

Los pequeños comerciantes y profe- 
sionales liberales desean un aparato 
que les solucione la gestión de su nego- 
cio, bufete, consulta... etc. Si descono- 
cen el mundo informático buscan el 
asesoramiento de personas más intro- 



ducidas en el tema y que sean de su to- 
tal confianza, puesto que su temor fun- 
damental es el de que el hipotético ven- 
dedor advierta su desconocimiento del 
tema y le «coloque» un aparato que no 
vaya a responder a sus exigencias o 
bien que pueda no ajustarse al presu- 
puesto previsto. 

Lógicamente, todo comprador quie- 
re que el producto que adquiera res- 
ponda a las tres «B» (bueno, bonito y 
barato), y el hecho de desconocer en 
principio el producto que va a comprar 
le llena de desazón. 

Alejen, pues el miedo. El hecho de 
no poseer conocimientos informáticos 
no es nada vergonzoso ni reprensible. 
Es más, cualquier empresa seria que se 



dedique a la venta de equipos informá- 
ticos debe facilitar una información 
clara y comprensible a sus futuros 
clientes. Pregunten sin vergüenza. Lle- 
ven las ideas claras de como desean 
gestionar su negocio y agoten el tema 
sin reservas. No admitan respuestas ne- 
bulosas y asegúrense de que la persona 

3ue está atendiéndoles posee la clari- 
ad de conceptos suficiente como para 
comprender exactamente su necesidad 
y la manera de resolverla. No se dejen 
apabullar por la jerga técnica. Recuer- 
den que ustedes son los clientes y que 
les asisten todos los derechos. Asimis- 
mo, recuerden que tanto o más impor- 
tante que la máquina es la biblioteca de 
programas disponibles para ella. Habi- 
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tualmente, para la gestión de pequeñas 
empresas existen programas standard 
que prevén las necesidades más habi- 
tuales. Un programa estándar, no esta- 
rá hecho a la medida exacta de sus ne- 
cesidades, pero con una cierta dedica- 
ción y sobre todo, sabiendo exacta- 
mente lo que se desea, puede funcio- 
narle igual o mejor que un programa 
confeccionado exclusivamente para 
Ud. y por un precio, lógicamente, más 
barato. 

FUNCIONARIOS Y 
ADMINISTRATIVOS 

Otro porcentaje importante de per- 
sonas que piensan en iniciarse median- 
te un microordenador en el terreno de 
la informática lo constituyen los admi- 
nistrativos y funcionarios de empresas 
aue advierten, acertadamente, que 
dado el nivel de mecanización de su 
empresa, el hecho de poseer unos cier- 
tos conocimientos sobre el tema puede 
garantizarles un ascenso o promoción. 

Otros casos más dramáticos son 
aquellos, que encontrándose en situa- 
ción similar, ven peligrar realmente su 
puesto de trabajo al ser progresivamen- 
te reducidas sus tareas, tendentes a la 
eliminación total. 

Para este grupo de personas, la ad- 
quisición de un microordenador puede 
convertirse en la confirmación de una 
frustración si eligen equivocadamente. 
En primer lugar, les recomendamos 

3ue averigüen qué sistema de proceso 
e datos está utilizando su empresa. (Si 
los programas se realizan en la propia 
empresa, si se trabaja en algún lenguaje 
específico, si se manejan paquetes inte- 
grados de gestión profesional, si los 
programas son realizados por encar- 
go...). 

Sobre todo, lo que no deben hacer es 
lanzarse ciegamente a la compra de un 
ordenador. Una vez averiguados los 
detalles que les interesen, (lenguaje, o 

Eaquete integrado...) deben evaluar si 
) procedente es adquirir un eauipo o 
asistir a una escuela. Si se deciden por 
la asistencia a un centro, la compra del 
aparato será el paso siguiente, pero 
aquí ya no necesitarán de nuestros con- 
sejos puesto que ya poseerán un cierto 
conocimiento de cual se adecúa a su 
necesidad. 

Caso de trabajar en la propia empre- 
sa con algún lenguaje específico o pa- 
quete integrado, deben adquirir una 
máquina que posea ese lenguaje, bien 
de manera residente o en un compila- 
dor: Es decir, si en su empresa los pro- 



gramas se realizan en COBOL, usted 
necesitará un micro que trabaje en CO- 
BOL. Como no tenemos noticia de 
ningún micro lleve implantado el CO- 
BOL (la mayoría trabajan en BASIC) 
usted deberá adquirir un ordenador 
que posea el lenguaje COBOL entre 
sus programas disponibles. De todos 
modos, para el conocimiento de los 
lenguajes de programación orientada a 
empresas (COBOL, RPG...) es prácti- 
camente imprescindible la asistencia a 
clases sobre él. Con los paquetes de 
gestión el problema es diferente. Se 
trata más bien en este caso de familiari- 
zarse con uno o varios (mejor con va- 
rios) paquetes, puesto que aunque to- 
dos son diferentes, la filosofía de los 
mismos es muy similar. Por tanto, bus- 
que un aparato que le garantice la exis- 
tencia de un buen número de progra- 
mas standard y paquetes integrados. 

PADRES DE FAMILIA 

Sin lugar a dudas, el grupo más nu- 
trido de personas que se lanzan a la 
compra de un ordenador con mayor 
desconocimiento del tema, pero a la 
vez con más interés y buena te son los 
padres de familia con hijos en edad es- 
colar. Posiblemente, también sea este 
colectivo de personas el más apetecido 
por los vendedores desaprensivos. 

Lógicamente, para cualquier padre 
de familia todo sacrificio es poco en 
aras de sus vástagos. Esto lo saben muy 
bien los vendedores, que rápidamente 
intentarán cargarle con la mayor canti- 
dad de aparatos posibles. 



Como hay que saber nadar y guardar 
la ropa, muchas veces el motivo que de- 
cide al padre de familia por uno u otro 
microordenador es el tema del precio. 
He aquí la falacia. Muchas veces, los 
ordenadores más baratos resultan ca- 
ros a la larga. 

No es aquí tan importante el precio 
como la relación entre la calidad y pres- 
taciones ofrecidas y el precio. 

Efectivamente, existen ordenadores 
para todos los bolsillos partiendo de 
precios realmente irrisorios. Pero la in- 
formática no termina en el ordenador, 
y si su hijo la estudia en el colegio, ten- 
drá que ampliar el equipo de una ma- 
nera paulatina. Es decir, hay ordenado- 
res muy baratos, pero que en el mo- 
mento en el que desea acoplárseles un 
cassette para almacenar los programas, 
deberán comprar bien un cassette es- 
pecial o bien un interfaz para poder 
acoplar su cassette. Si desean añadir 
una impresora, les pasará tres cuartos 
de lo mismo: deberán comprar la im- 
presora de la marca en cuestión, o bien 
comprar un interfaz que les permita 
conectar otra, y así sucesivamente con 
todas las ampliaciones de su configura- 
ción con lo que viene a resultar mucho 
más caro el equipo que aquel otro que 
era un poco más caro pero que llevaba 
incorporadas las conexiones (stan- 
dard) y qqe permitía ampliar la confi- 
guración directamente. 

Otro tema importante es que el or- 
denador en cuestión posea una amplia 
biblioteca de programas que permitan 
a su hijo continuar los estudios en casa, 
además de un extenso catálogo de pro- 
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gramas de entretenimiento. Los niños 
quieren jugar. Si usted sólo adquiere 
programas didácticos conseguirá que 
su hijo aborrezca el ordenador y será 
peor el remedio que la enfermedad. 
Conclusiones: 

Resumiento, el futuro comprador de 
un ordenador debe exigir: 

- Información adecuada. 

- Seriedad, responsabilidad y asesora- 
miento del vendedor. 



Relación justa entre calidad y precio. 
Amplia biblioteca de programas 
para el ordenador. 
Posibilidad de ampliar la configura- 
ción sin interfaces ni gastos adicio- 
nales. 
Garantía. 

Buen servicio post -venta. 
Compatibilidad, para no tener que 
depender exclusivamente de una 
marca. 



La pregunta inmediata es ¿hay algún 
ordenador que responda a estas exi- 

{jencias actualmente en el mercado? Y 
a respuesta es más inmediata aún. Sólo 
tiene 3 letras MSX. Y, naturalmente, 
no se trata de una sola marca. Hay más 
de 20 marcas (todas ellas de conocida 
reputación) que respaldan esta norma. 
No lo dude. Si no sabe por cual deci- 
dirse, vea un MSX antes de comprar. 
Nos lo agradecerá. 




EROTECA DE 





N? 1 a 4 - 475 PTAS. NT 5 a 8 - 475 PTAS. NP 9 y 10 - 300 PTAS. N? 11 - 175 PTAS. 



casa 




10C0* 

¡si 


1 

EOTfViST/UKXAl 

roraoEu-BOCT 



lut 



r i» 



N? 13 - 175 PTAS. 




N? 20 - 175 PTAS. N? 21 - 175 PTAS. N.° 22 23 - 300 PTAS. 

¡SI TE HACE FALTA ALGUN NUMERO DE 




PIDELO HOY MISMO! 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



BOLETIN DE PEDIDO 



| Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n." del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN TRANSFER, S.Á. 

I NOMBRE Y APELLIDOS 

| CALLE N.° CIUDAD ZIZZZZ!!" 

| DP PROVINCIA TEL 
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mas: LOS GASES (Ley de Boyle-Ma- 
riotte) y ESPEJOS PLANOS. 

Estos programas han sido desarro- 
llados de una forma sumamente didác- 
tica, intentando en todo momento 
combinar la enseñanza asistida por or- 
denador con las posibilidades gráficas 
v lúdicas del ordenador. No es un li- 
bro, ni es un juego. Es un sistema diver- 
tido de aprender. 

PROTAGORAS es un diminuto 
personaje que da un toque de humor a 
los temas tratados. 

Estos programas van dirigidos a un 
público de edades comprendidas entre 
los 11 y los 16 años. 



GANADORES 

DEL 
2.° CONCURSO 




De acuerdo con el número de 
votos remitidos por nuestros 
lectores, el MEJOR PROGRA- 
MA DEL AÑO ha sido: 
PHANTOM 
Cuyo autor es: 

SASCHA YLLA KONNEKE 
quien se ha hecho acreedor a la 
fabulosa 

UNIDAD DE DISCOS 

PHILIPS VY0010 




Tal premio le será entregado en nues- 
tra redacción en el curso de este mes, 
acto del que daremos cumplida rete 
renda en el próximo numero. 



VOTANTES 
PREMIADOS 

Los votantes de los programas que al 
final obtuvieron el primer y segundo 
puesto, han participado de un sorteo, 
del que han sido los afortunados los si- 
guientes: 

David Amill Llorens Barcelona 
Pedro X Almiron Ciudad Real 
Joaquín Bustamante Murcia 

lose María Rodríguez - Alicante 
José M. a Usagre Los Alcores (Sevilla) 
Eduardo Macarrón - Móstoles (Ma- 
drid) 

Sebastián Serrano - Andújar (Jaén) 
Sebastián López - San Sebastián 
Miguel Castillo - Granada 
Roben Puiiidevall - Gerona 



SISTEMA OPERATIVO 
CON ICONOS PARA MSX: 

El sistema operativo, con su in- 
trincado laberinto de comandos 
para la copia, visualización, bo- 
rrado y modificación de ficheros, ade- 
más de los comandos de copia de dis- 
cos y formateado, resulta, por lo gene- 
ral, uno de los peores tormentos del 
usuario que sólo desea poner en mar- 
cha su unidad de disco. 

En otros ordenadores este problema 
fue solucionado con una interesante 
variante: los menús de iconos. 

Los menús de iconos funcionan de la 
siguiente manera: Se muestra en panta- 
lla una representación gráfica de cada 
una de las opciones, y mediante un ra- 
tón o joystick situamos el cursor enci- 
ma de la opción que deseemos. 

De este modo no es necesario recor- 
dar una complicada lista de comandos 
y de sus opciones. 

El sistema, adoptado desde hace 
unos años por Apple en sus ordenado- 
res Lisa y Macintosh, se ha extendido 
rápidamente a otros ordenadores: 
ATARI ST, IBM PC, etc. 

Para los MSX este sistema operativo 
llega de la mano de Sony, ya que viene 
incorporado a su nuevo ordenador de 
la segunda generación, el HB-F700, 
con un aspecto externo prácticamente 
idéntico a su hermano menor: el HB- 
F500; pero con unas características 
técnicas muy superiores: 384 RAM Kb 
(256 RAM usuario y 128 VRAM). 

Incorpora además 5 paquetes- de 
gestión: 

- HI-BRID: Sistema de iconos para 
el manejo del sistema operativo, aue in- 
corpora una calculadora, agencia, ca- 
lendario, etc. 

- HIT-TEXT: Procesador de textos. 

- HI-BASE: Base de datos. 

- HI-CALC: Hoja de cálculo. 

- HI-GRAPH: Programa de gráfi- 
cos de gestión. 



IDEALOGIC DISTRIBUYE 
PROTAGORAS DE S.M. 

Ediciones S.M. e Idealogic, S.A. 
llegaron a un acuerdo de coope- 
ración según el cual Idealogic 
distribuirá el software educativo pre- 
sentado por Ediciones S.M. 

Los primeros títulos de esta colec- 
ción corresponden al temario de Físi- 
ca, incluyéndose dos interesantes te- 





SANYO PRESENTA EL 
MPC-2500 FD 

Primer MSX2 de SANYO 

Este ordenador está pensado para 
colmar las necesidades del usua- 
rio de ordenador personal. Este 
equipo ofrece muy altas prestaciones a 
un precio más que asequible. 

Ópera en Disk Basic y MSX DOS, 
incorporando una RAM de usuario de 
64K, suficientemente amplia para sus 
aplicaciones en el hogar, la educación y 
los juegos. 

Además de esto, incorpora un Flop- 
py Disk Drive de Doble cara/Doble 
densidad (720 K disponibles), genera- 
dor de sonidos y teclado de 89 teclas, 

3ue incluyen teclado numérico separa- 
o. Esperamos poder ampliar la infor- 
mación en breve. 




DE MAILING I 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MAILING PUEDES ADQUIRIR 



I BASIC TUTOR IDEALOGIC 



mi 



(ADAPTADORES TARJETAS | 
INTELIGENTES 
BEE CARD Y SOFTCARD 





Deja el manual de lado, inserta este breviario de 
basic en cartucho y olvídate. No ocupa memoria 

pvp 3.500 pts. 



No te quedes 
al margen 
V disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 
PVP 2.850 pts 



ENVIA HOY MISMO ESTE CUPON 8 




Nombre y apellidos 
I Dirección 
I Población 

I □ Tutor Basic Ptas. 3.500- 



CP 



Prov 



Tel. 



| □ Sweet Acorn Ptas. 5.200 - 



□ Adaptador Bee Card Ptas. 2.850,- □ Adaptador Softcard Ptas. 2.850- 

□ Backgammon Ptas. 5.200 - □ Shark Hunter Ptas. 5.200 - 
□ BarnStormer Ptas. 5.200- □ Chock'n Pop Ptas. 5.200 - □ Le Mans 2 Ptas. 5.200 - 
Gastos de envío por cada producto 100,- pts. Remito talón bancario de pts. a la orden de Manhattan 
Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 



Programa i 



iPor F. Rodríguez! 



MISION 
AUDAZ 



Juego interactivo en el que asumes el 
papel de un artificiero que para des- 
montar una bomba colocada en un edi- 
ficio tiene que superar distintos obstá- 
culos. El mapa sólo lo ves unos segun- 
dos al principio. 



2Í 

M 

50 

MI 



' U!it!Uttltlii.tttttllt 

mm "lísiON mm 

mm mm. 

mm audaz 



mm 

mm mm 
v mm'.mnmimm 
n ' mm mm 
n ■ huu <i e 9í» mm 

?f • i ....... = !; = : : ' 

l( | CLS:KEY 3FF:C0L0R t5,4,4:CLEAfi 5W:D 
IM Ai (21! 
' 

12S • mppe$entaci3nm 
lH ' 

148 VJÍIH JsÜfEN*6RP! 'ASI! 

*: s W T : J : PSÉT . 30 ! : PR I HT« l . "HI 
Kfflftf» T3 403:HEXT:CL3:-QP M TO 

166 PSET *0. 8»í * PR t»T# 1 , " AtfOAZ " : FOR R*l 
" 4Mí KEXT: CLStFOR M TC 2«t?:SEXT:VEXT 
N 

Í T! ' 

ÜI! tONESU 

( ?| * 

m SCREEN Í! LOCATE 10, i : PPINT"< INSTPUCC 
[QKES "ífflffl 

2!l MUJ^FORHAS PARTE DE UN BRUPO DE A 
RTIFICIEROS. EL ALTO MANDO TE ENCOMIENDA 

m "y.y-yy- misión. gesactivar un exp 

LOSIVD SITUADO EN ALGUN LUGAR DE UN RUIN 

oso ed* c :::o. cuentas con un "apa que sa 

LDRA ¡NICIALMENTE Y ESTARA EN PANTALLA U 
NOS SE5UN0OS." 
20? MinSO 2410 

23! AU2)»" EN EL SE TE MUESTRA LA FOSIC 
!0N DEL EXPLOSIVO PERO NO T U POSICION IN 
ICIAL. C 'APA DESACTIVAR EL EXPLOSIVO TIEN 
ES QUE CONTAR CON UNOS ALICATES QUE ENCO 
NTRARftS A LO LAPGO DEL RECORRIDO. " : P-Z: G 
OSUB 2*! 3 

W A$(31s" NO OLVIDES QUE UNA PUERTA CE 
RRADA SOLO SE ABRE CON UNA LLAVE. NO UTI 
LICES MAYUSCULAS NI ACENTOS. PROCURA QUE 
LAS RESPUESTAS SEAN LO MAS BREVE POSIBL 
E, ELUDIENDO LOS ARTICULOS Y USA SIEMPRE 
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EL INFINITIVO DE LOS VERBOS. F-3: GOSUB 
2410 

250 A$(4)«" ¡AH! PAPA INDICAP LA DIPECC! 

ON A SEEUIR USA LAS INICIALES DE LOS PUN 

TOS CARDINALES. ":P=4¡60SUS 2410 

260 LOCATE 10,36:A»(5i*'PULSA UNA TECLA" 

:P=5:G0SUB 2410 

2^0 IF INKEYS=°" THEN 270 

280 1 

290 ' HDIBUJO DEL MAPA»* 
300 ' 

310 COLOP 4.15.15:SCPEEN 2 

320 Z=INT(RND<-TME>t9) 

330 DPAH'BNif , I0S4R160D160L160U160" 

340 DRAWBM80.10D30L40R80U30" 

350 DPA«"BH80,40D60L40P40D30L40P160" 

360 DPAWBN120.40D90" 

370 DPArBMl20.60P40D40L40R80" 

380 DRAW"BM140.130D40" 

3"0 PSE T <140,150):PKINT*1."| 1":PSET' 170 

.130):PP!NTtl.-r ! PSET!100, 130 1 :Pf:N!ll, 

•■":PSET(120.120»:PPINTI!."| 2":PSET/80, 

!20!: C 'RINT«!,"| 4" 

40? R3ET(60. 100). -PRINT*!. "I":PSET< 120, 80 
líPRINTtVI 7-:PSET(65.80':PRINTI¡."i | 
4J*:PSET'100.40»:PRINT«l."r : PSET'120.2 
0>:PRINT#1."| B »:PSET!80.20»:PPIN-«!,"| 

410 C 'SE^!02, 140):PPINT#1,"3" 

420 PSET(62.UÍ):PRINTII,"5" 

430 PSET(50.15):PPINT»l. W 

440 PSET(50,180):PRINTI1,"| puertas" 

450 FOR L=l TO 3000:NEXT 

4¿0 ' 

470 ' «CONTROL DE BIFURCACIONES!! 
480 ' 

490 COLOP 15. 4; SOPEEN 0:ON Z BOTO 500.64 
0,T60.'00. 1100. 1220. 1340, 1440. 1540 
500 ' 

510 ' ««HABITACION III 
520 ' 

530 COLOP 15.4¡CLS:A$(6)*"HAY UN GPAN CU 
ADRO EN LA PARED DE ENFRENTE Y UN ARMAR I 
O A TU DEPECHA. TIENES ADEMAS UNA PUERTA 
ENFRENTE Y OTRA A TU IZQUIERDA. ":P=6:G0 
SUB 2410 

540 PRINT: INPUT C$ 

550 IF Cs="iirar tras cuadré OR C»="«ir 
ar dltru cuadre" THEN PRINT:PRINT"HAY U 
NA LLAVE PEQUEÑA": SOTO 540 
560 IF Cs*"coger llave" THEN LLM'llave" 
¡GOTO 540 

570 IF Cs="abrir ariario" THEN IF LLI'M 
lave" THEN PRINT:PRINT"NO HAY NADA. SOLO 

TELARAÑAS": GOTO 540 ELSE PRINT: PRINT'E 
STA CERRADO. NO TIENES LLAVE": GOTO 540 
580 IF C**"ro«per amario" OP C«="ro»per 

cuadro" THEN PRINT:PRINT"NO SEAS CAFRE. 

¿QUE TE HA HECHO?": GOTO 540 



5«0 IF C$*"e" OR C$*"s" THEN PRINTiPRINT 

"NO PUEDES IP EN ESA DIRECCION*: GOTO 54É 

600 IF C*="n" THEN 640 

610 IF C$="o" THEN 760 

620 GOSUB 2530 

630 GOTO 540 

640 ' 

650 ' «HABITACION 2*1 
660 ' 

670 CLS:A$í7)="TC ENCUENTRAS EN UN DOPHI 
TORIO. HAY UNA CANA ROTA Y UNA MESILLA C 
ON UN CAJON ENTREA8IEPT0. PUEDES !PTE PO 
R UNA e UEPTA A TU IZQUIERDA O BIEN RETRO 
CEDER. ":P s7 :G0SUB 2410 
6B0 PRINT: IN^JT C$ 

6'0 IF C*="abnr :a,on" *HEN BEEF: BEEP; & 
P!N T : PRINT" ¡CUIDADO! LA MESA SE HA ROTO, 
"¡GOTO 680 

700 IF Chairar bajo cama" OP Cí="»irar 
deba : e cana" THEN PPINT:PRINT" T E ADVERT 
I QUE LA CAMA ESTABA ROTA. PQP TU IMPRUD 
ENCIA TE DESPLAZO A LA PRJMEPA HABI TAC 10 
N":F0R L«l T 0 2500:NEYT : 5OTO 500 
71Í IF G**V OP r$r« e » THEN PRINT: PRINT 
"NO PUEDES IP EN ESA DIRECCION. ":5C T j 68 
0 

720 IF C*="o" THEN «00 
730 I r C$="s" T HEN 500 
740 GCSUB 2530 
750 GOTO 680 
760 ' 

770 ' «HABITACION 3«» 
780 ' 

700 CLS:A«(S)*"HAY UNA PEQUEÑA COMODA CO 
N DOS CAJONES (SUPERIOR E IN c ERIOR> Y UN 
A PUERTA AL FRENTE. NO OLVIDES QUE PUEDE 
S RETROCEDER EN CUALQUIER MOMENTO. ":R=8: 
60SUB 2410 
800 PRINT: INPUT Cf 

810 IF C«="abr!r cajón wpirior" THEN PP 
INT:PRINT"HAY UNA LLAVE" : GDTQ 800 
820 IF C»*"coger llave" THEN L!»*llavt"i 
GOTO e00 

830 IF C»="abrir cajón inferior" THEN IF 
L*="" THEN PRINT:PRINT"ESTA CERRADO. NO 
TIENES LLAVE " : GOTO 800 ELSE PRlNTtPRINT 

"SOLO HAY UN PEQUEÑO MECHERO DE GAS":GQT 

O 800 

840 IF C«="coger mechero" THEN C£*«"iech 
ero":GOTO 800 

850 ¡F Cf«»d" OR C$="s" THEN PRMT:PRINÍ 
"NO PUEDES IR EN ESA DIRECCION. "¡GOTO 80 
0 

860 IF C«"n" THEN "00 
870 IF C»="e" THEN 500 
880 GOSUB 2530 
890 GOTO 800 
900 ' 

910 ' «HABITACION 411 



920 ' 

930 CLS:A*«>} = "ES UN GRAN PASILLO QUE 02 
ACCESO A VARIAS HABITACIONES. EN PRINC 

PIO T IENES UNA RUER'A A TU DE P ECM¿, JTRA 
A TU IZQUIERDA i OTRA al FRENTE. ":P=9:í 

OSUB 2410 

"40 PRINT: INPUT C$ 
950 IF r J--»r° THE* 1000 
960 IF C*="s" T HEN 740 
970 IF Ct="e" THEN 64? 
"80 IF C* = "c" THEN Mff 
R°0 GOSUB 2530: GO T C "40 
1000 * 

1010 • «HABITACION 4 (2)|| 
1020 ' 

1030 ClS: Al < 10) «"CUENTAS EN ES T A OCASION 
CON TRES PUERTAS. DE NUEVO UNA A CASA L 
ADO Y OTRA AL c RENTE":P=!?:50?';r 2410 
1040 PRINT; INPU T C< 
1050 IF C*=V T HEN 1440 
1060 I c C*=»s" T HEN =0? 
IT? IF Ct="?" THEN rji 
1080 IF Cí="c" T HEN 1220 
1090 GOSUB 2410: GOTO 1048 

1100 ' 

111? ' «HABITACION 5»« 
112? ' 

113? CLS:Aim>*" T E ENCUENTRAS EN UNA AN 
T I5UA COCINA. HA y UNA VIEJA "ESA EN LA Q 
UE SE ENCUENDA [JN pflPQ. DE RECIENTE ESC 
PITURA. AVANZA AL ct ETE O BIEN PETROCEt 
E.*:P=11:G0SU8 24'.? 
1140 PRINT; INPU* C« 

1150 IF C««"coger papel" THEN PRINT: PPIN 
T „ ¡5 , N[ , imm t r.: : ¿ PERO oygijj, r ?r; 

NUA":GOTO 1140 

1160 : r Cts'leer papel" t men prINTjP«INT 
"ES T E ES SU CON r ENi:0:LA OSCURIDAD NO AF 
ECTA AL CIEGO DEL *!S*C MODO 9UE...*:6QT 

1171 if «s'rijtper papal- t hen pr^pi 
N T "DESDE LUEGO *CDO LO BUE T OCAS LO TEST 
ROZAS. ":60TC 1143 

1180 IF C*="c" 0 & Ct=";' : THEN PRINT:PRIII 
T"NO PUEDES IR EN ESA DIRECCION. •«6073 ! 

140 

11°0 IF CI»V Ty EN 123? 
1200 IF C»="e" THEN °00 
1210 GOSUB 2530:GO T O 1140 
1220 ' 

1230 ' «HABITACION 6« 
1240 ' 

1250 CLS:A4(12)«»El RISO ES DE MADERA MU 
Y CARCOMIDA. LA HABITACION TIENE UNA PUE 
RTA HACIA EL SUR Y OTPA HACIA EL ESTE. S 
E APRECIA EN UN RINCON UN VIEJO ESCRITOR 
I0.':P=12:G0SUB 2410 
1260 PRINT: INPUT C« 

1270 IF C$="abr:r escritorio" THEN IF V= 
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Programa 





0 THEN PPINT:PRINT"HAY UNA LLAVE CON FOR 
HA RECTANGULAR Y OTRA CIRCULAR. SOLO TIE 
NES OPCION A UNA DE LAS DQS.":GOTO 1260 
ELSE 50SUB 25*0 

(290 IF Cs="coger llave rectangular" THE 

N LLC*»"llavt rectangular": IF V=0 THEN V 

=! : 30T0 1260 ELSE GOSUB 2540 

L290 : r 2»="coger llave circular" THEN 1 

F V=0 THEN LLC*="llave circular":V=l:GOT 

2 ¡260 ELSE GOSUB 2540 

1200 IF C*»V OP C$"V THEN PPINTíPRIN 

• m PUEDES IR EN ESA DIRECCION.': COTO 1 

261 

if :$=•«- THEN 1000 
1320 IF C*="s" T HEN 1100 
1220 GOSUB 2530: GOTO 1260 
1340 ' 

135? • II HABITACION 7 II 

::¿0 ' 

13-0 CLS:AI«13>»»E8 UNA PEQUERA HAB1TACI 
EN SIN SALIDA ALGUNA, SOLO PUEDES RETROC 
E'.E : . HAY UNA CAJA SOBRE UNA ESTANTERIA. 
■:P=13:60S'JB 2410 
1330 F-F INT: INFUT C$ 

1391 IF Ct="coger ca,a" THEN IF ES»="" T 
HEN PNINTiPRWNO LLEGAS. NECESITAS UNA 
ESCALERA": GOTO 1330 ELSE PRINT: PRINT'VE 
S UNOS ALICATES": GOTO 1380 
1400 IF C»="coger alicates" THEN AL»="al 
icates":60TO 1330 

1410 IF C$="e" OP Ct="n" OR C»="s" THEN 

PRINT; PRINT'NO PUEDES IR EN ESA DIPECCIO 
N':SC T C 1330 

1420 IF C»="3" THEN 1000 
143,' GOSUB 2530:6OTC 1380 
1440 ' 

1450 ' «HABITACION Sil 
1460 ' 

1470 CLS:A0Ü4)«"ES UN CRUCE DE ESTANCIA 

5, t :enes una puerta a CADA LADO y otra 

ATRAS POR LA 9UE HAS ENTRADO. ":P=14:G0SU 
B 2410 

1480 PRINT-.INPUT C* 

!4"0 IF C$="n" THEN PRINT:PRINT"NO PUEDE 

S IR EN ESA DIRECCION. "¡GOTO 1480 

1500 IF C$="0" THEN 1640 

1510 IF Cl="s" THEN 1000 

1520 IF C»="e" THEN 1540 

1530 GOSUB 2530:6OTO 1480 

1540 ' 

1550 ' «HABITACION 911 
1560 ' 

1570 CL3:A$(15)="ES UNA HABITACION MUY 6 
RANDE. AL FONDO HAY UNA ESCALERA DE NANO 
Y EN UN RINCON UNAS ESCALERAS QUE DESCI 
ENDEN.":P=15:60SUB 2410 



1580 PRINTtINPUT C$ 

1590 IF C»="coger escalera" OR C$="coger 
escalera de «ano" THEN ESf'escalcra. ': 

60T0 1580 

1600 IF C»="bajar escaleras" THEN PRINT: 

PRINT'LAS ESCALERAS TE PERMITEN ELEGIR L 

A HABITACI0N:":INPUT"1/9";A:0N A 60T0 50 

0.640,760,900,1100,1220,1340,1440,1540 

1610 IF C»*"n" OR C«="s" OR C$="e" THEN 

PRINT: PRINT'NO PUEDES IR EN ESA DIRECCIO 

N.":GOT0 1580 

1620 IF C»="o" THEN 1440 

1630 GOSUB 2530: GOTO 1580 

1640 ' 

1650 ' «HABITACION 1011 
1660 ' 

1670 CLS:A$(16)="ESTA MUY OSCURO. SE OYE 
VA6AMENTE EL TIC-TAC DE UN RELOJ. AL FO 
NDO HAY UNA «ESA CON UN UNICO CAJON. ":P« 
16:G0SUB 2410 
1680 PRINT: INPUT C$ 

1690 IF CE»="" THEN PPINT:PRINT*NO TIENE 
S MECHERO PARA ILUMINAR LA ESTANCIA. LO 
SIENTO PERO, EN ESAS CONDICIONES NO PUED 
ES SEGUIR. TE DESPLAZO A LA PRIMERA HABI 
TACION.":FOR L'l TO 3500: NEXT: 60T0 500 
1700 IF AL$="" THEN PRINT:PRINT"A PARTIR 
DE AQUI NO PUEDES CONTINUAR SIN LOS ALI 
CATES. .INTENTALO DE NUEVO! ": FOR L=l TO 
2500:NEXT:6OTO 760 

1710 IF C$="abrir cajón" THEN IF LLC$="" 



THEN PRINT: PRINT'ESTA CERRADO Y NO TIEN 
ES LLAVE. TE DESPLAZAS A OTRA HABITACION 
.":FOR K»l TO 2500:NEXT:6OTO 900 
1720 IF LLCIO'llave circular" THEN PRIN 
T'LA CERRADURA NO ADMITE TU LLAVE. ":V=0: 
GOTO 1680 

1730 CLS:FOR L«l TO 3:PLAY"120gfedccdefg 
gíedccdcc":NEXT:LOCATE 4,10:PRINT"ENHORA 
BUENA. LA HAS ENCONTRADO" ¡LOCATE 6,12:PR 
INT'iTE ANIMAS A DESACTIVARLA?" : FOR L'l 
TO 3000¡ NEXT 
1740 ' 

1750 ' «DIBUJO DEL EXPLOSIVO»* 
1760 ' 

1770 COLOR 4,15,15:SCPEEN 2: CIRCLE ( 120. 8 
21.30,1 

1780 DRAH"BM120,86S4U20" 

1790 DRAN"BM170,50D6*5L95U65R95" 

1800 DRAN»BM170,50R10U10L115D10R10" 

1810 DRAW"BM175,40U10L105D10" 

1820 DRAN"BM170.50C2S8DRDRDRDRDRRURURURU 

UUULULULULULULU" 

1830 DRAN"BM75,50C6DLDLDLDLDLLULULULUUUU 
RURURURURURU" 

1840 PSET(116,57)¡PRINT»1,"12" 

1850 PSET(143,80)¡PRINTI1,"3" 

1860 PSET(120,105)¡PRINT»1,"6" 

1870 PSET(95,B0):PRINTI1,"9" 

1880 PSET( 10, 150) ¡PRINTIl, "PULSA UNA TEC 

LA PARA INICIAR ":PSET(10,170):PRINTI1," 

LA DESACTIVACIQN":H=65:T=135 
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1890 LINE(120,86)-(T,N>,4 
1900 CIRCLE(75,25),4,6:PAINT(75,25).6:F0 
R L=l TO 400:NEXT:CIRCLE(75, 25) ,4, 15:PAI 
NT(75,25) , 15:FOR K«l TO 200:NEXT 
1910 CIRCLE(170,25),4,6:PAINT(170,25),6: 
FOR L=l TO 400:NEXT:CIRCLE(170,25) .4, 15: 
PAINTÍ 170.25) . 15:F0R K=l TO 200:NEXT 
1920 1F INKEY» 8 "" THEN 1930 ELSE 1940 
1930 LINEC120,86)-(T,M), 15:M=lÍ+l:T=T+.2: 
1F M=95 THEN «=65: T= 135 : GOTO 1890 ELSE l 
890 
1940 ' 

1950 ' «DESACTIVACION!» 
1960 ' 

1970 COLOR 15,4:SCREEN 0: A$ ( 17) ="COMO HA 
BRAS VISTO EL EXPLOSIVO TIENE DOS CABLES 
. UNO ROJO Y EL OTRO VERDE. UNO DE ELLOS 
INICIA LA DESACTIVACION, EL OTRO HACE E 
XPLOSIONAR LA BOMBA. ¿TE ARRIESGAS?" :P=l 
7:60SUB 2410 
1980 PRINT: INPUT C$ 

1990 IF C$="si" THEN PRINT"DE ACUERDO. C 
OHIENZA CORTANDO UN CABLE": GOTO 1981 
2000 X=INTÍRND (-TIME) «10>+1 
2010 IF X)l AND X<=5 THEN EX$="cortar ca 
ble rojo" ELSE EX$="cortar cable verde" 
2020 IF C*=EX* THEN 2260 ELSE 2030 
2030 ' 

2040 ' «EXPLOSION»» 
2050 ' 

2060 SOUND 0,0 



Test de listado 



2070 SOUND 1,5 
2080 SOUND 2.0 

2090 SOUND 3,13 
2100 SOUND 4,255 
2110 SOUND 5,15 
2120 SOUND 6,30 
2130 SOUND 7,0 
2140 SOUND 8.16 
2150 SOUND 9,16 
2160 SOUND 10,16 
2170 SOUND 11,0 
2180 SOUND 12,5 
2190 SOUND 13,0 
2200 FOR L s l TO 30:NEXT 
2210 SOUND 12,56 
2220 SOUND 13.0 

2230 CLS: LOCATE 1, 10:PRINT*TE HAS EQUIVO 
CADO. NO TE DESANIMES" 
2240 LOCATE 13. 12: PRINT" ¡ HASTA OTRA!" 
2250 FOR L=l TO 5000: NEXT: CLS: KEY ON: END 
2260 CLS:A»!18)="HAS CORTADO EL CABLE CO 
RRECTO. AHORA PRESTA ATENCION. EN CUANTO 
OIGAS UN PITIDO, DISPONES DE 10 SEGUNDO 
S PARA ENCONTRAR UNA CLAVE NUMERICA COMP 
RENDIDA ENTRE 1 / 15" : P= 18: GOSUB 2410 
2270 FOP K«l TO 5000: NEXT: BEEP:BEEP 
2280 YMNT(RND(-TIME)tl5)+l:TIME=0 
2290 LOCATE 1,6:INPUT A 
2300 IF TIME>506 THEN 2030 ELSE IF A=Y T 
HEN 2310 ELSE LOCATE 1,6:PRINT" ":60T 
O 2290 



2310 CLS: PRINT "BRAVO LO HAS CONSEGUIDO." 
2320 PRINT:PRINT"SI NO HAS UTILIZADO PAR 
A NADA EL " 

2330 PRINT : PRINT "LISTADO PUEDES CONSIDER 
ARTE UN GRAN" 

2340 PRINT: PP INT'PASTREADOF* POP HABER LL 
EVADO A CABO:" 

2350 PRINT:PRINT" UNA MISION AU 

DA2 

2360 PLAY'CDEFGABBAGFEDCCDDCC" 

2370 FOR K=l TO 7000: NEXT: CLS: KEY ON: END 

2380 ' 

2390 ' «ESCRITURA PAUSADA» 
2400 ' 

2410 DIM Bt(LEN(Aí(P!)) 
2420 FOR L=l TO LEN(A$(P)> 
2430 B»(L)=MID4(A$(P).L,1) 
2440 NEXT 

2450 FOP K»l TO LEN(AKP) ) 
2460 PRINT B*(n;:BEEP 
2470 FOR N=l TO 30: NEXT 
2480 NEXT K 
2490 ERASE B*: RETURN 
2500 ' 

2510 ' «ORDEN DESCONOCIDA»* 
2520 ' 

2530 PRINT: PRINT" DESCONOZCO TU ORDEN. PO 
R FAVOR CAMBIALA" ¡RETURN 
2540 PRINT:PRINT"TE ADVERTI QUE SOLO DIS 
PONIAS DE UN OPCION. COMIENZA EL JUEGO D 
E NUEVO":FOR K=l TO 2500:NEX T :GOTO 
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- 58 


250 


- 52 


490 


-188 


730 


-117 


970 


-244 


1210 


-207 


1450 


- 58 


1600 


- 3 


1930 


- 87 


2170 


- 27 


2410 


- 37 


20 


- 58 


260 


- 50 


500 


- 58 


740 


-134 


980 


-204 


1220 


- 58 


1460 


- 58 


1700 


t252 


1940 


- 58 


2180 


- 33 


2420 


-144 


30 


- 58 


270 


-161 


510 


- 58 


^50 


- 65 


990 


- 6 


1230 


- 58 


1470 


- 45 


1710 


-116 


1950 


- 58 


2190 


- 29 


2430 


-129 


40 


- 58 


280 


- 58 


520 


- 58 


760 


- 58 


1000 


- 58 


1240 


- 58 


1480 


-183 


1720 


-125 


1960 


- 58 


2200 


-146 


2440 


-131 


50 


- 58 


290 


- 58 


530 


-187 


770 


- 58 


1010 


- 58 


1250 


- 24 


1490 


-211 


1730 


-232 


1970 


-227 


2210 


- 82 


2450 


-143 


60 


- 58 


300 


- 58 


540 


-183 


780 


- 58 


1020 


- 58 


1260 


-183 


1500 


-234 


1740 


- 58 


1980 


-183 


2220 


- 29 


2460 


-200 


70 


- 58 


310 


-120 


550 


- 46 


790 


- 53 


1030 


- 72 


1270 


- 33 


1510 


-107 


1750 


- 58 


1990 


-168 


2230 


-121 


2470 


-148 


80 


- 58 


320 


-192 


560 


- 21 


800 


-183 


1040 


-183 


1280 


- 17 


1520 


-124 


1760 


- 58 


2000 


-192 


2240 


-191 


2480 


-206 


90 


- 58 


330 


-156 


570 


-125 


810 


- 65 


1050 


- 32 


1290 


-139 


1530 


- 36 


1770 


-106 


2010 


-151 


2250 


- 75 


2490 


-211 


100 


-157 


340 


- 79 


580 


-101 


820 


-174 


1060 


- 7 


1300 


-246 


1540 


- 58 


1780 


-252 


2020 


- 66 


2260 


-217 


2500 


- 58 


110 


- 58 


350 


-217 


590 -241 


630 


- 20 


1070 


-179 


1310 


- 93 


1550 


- 58 


1790 


-163 


2030 


- 58 


2271 


- 15 


2510 


- 58 


120 


- 58 


360 


- 97 


600 


-253 


840 


-136 


1080 


- 68 


1320 


-208 


1560 


- 58 


1800 


- 94 


2040 


- 58 


2280 


-203 


2520 


- 58 


130 


- 58 


370 


-126 


610 


-118 


850 


- 14 


1090 


-243 


1330 


- 71 


1570 


-177 


1810 


-251 


2050 


- 58 


2290 


- 45 


2530 


- 71 


140 


-243 


380 


-142 


620 


-134 


860 


- 2 


1100 


-58 


1340 


- 58 


1580 


-183 


1820 


- 9 


2060 


- 18 


2300 


- 0 


2540 


- 21 


150 


-104 


390 


-141 


630 


-181 


870 


-103 


1110 


- 58 


1350 


- 58 


1590 


- 4 


1830 


- 68 


2070 


- 24 


2310 


-189 






160 


- 93 


400 


-114 


640 


- 58 


880 


-134 


1120 


- 58 


1360 


- 58 


1600 


-162 


1840 


-221 


2080 


- 20 


2320 


- 51 






170 


- 58 


410 


-242 


650 


- 58 


890 


-154 


1130 


- 93 


1370 


- 93 


1610 


- 50 


1850 


-249 


2090 


- 32 


2330 


-196 






180 


- 58 


420 


-174 


660 


- 58 


900 


- 58 


1140 


-183 


1380 


-183 


1620 


- 33 


1860 


-228 


21H 


- 19 


2340 


-129 






190 


- 58 


430 


-251 


670 


-100 


910 


- 58 


1150 


- 47 


1390 


- 62 


1630 


-137 


1870 


-181 


2110 


- 36 


2350 


-200 






200 


-124 


440 


-148 


680 


-183 


920 


- 58 


1160 


- 78 


1400 


-185 


1640 


- 58 


1880 


- 64 


2120 


- 52 


2360 


- 14 






210 


-168 


450 


- 68 


690 


- 54 


930 


-134 


1170 


- 46 


1410 


- 59 


1650 


- 58 


1890 


-105 


2130 


- 25 


2370 


- 34 






220 


-153 


460 


- 58 


700 


-149 


940 


-183 


1180 


-131 


1420 


-103 


1660 


- 58 


1900 


-253 


2140 


- 40 


2380 


- 58 






230 


- 77 


470 


- 58 


710 


-166 

• 


950 


-102 


1190 


- 77 


1430 


-192 


1670 


-228 


1910 -121 


2150 


- 41 


2390 


-58 


TOTAL: 
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Pascal MSX 



.Por Willy Miragall, 



Más allá 
del Basic 



No todo se reduce al BASIC. Los or- 
denadores MSX disponen de un am- 
plio abanico de lenguajes de progra- 
mación. Hoy trataremos uno de los 
más potentes: TURBO PASCAL. 



Todos conocemos las grandes 
prestaciones que ofrecen los or- 
denadores MSX por medio de 
su lenguaje BASIC, el MicroSoft eX- 
tended Basic. Pero no es éste el único 
lenguaje aplicable sobre los MSX. No 
es ni el más rápido, ni el más estructu- 
rado, ni tan siquiera el más fácil. Es, 
simplemente, un lenguaje cómodo, de 
utilidad general y bastante sencillo de 
aprender. Pero entonces, ¿por qué el 
BASIC? 

El BASIC tiene una enorme ventaja 
sobre la mayoría de los otros lenguajes 
de programación: es un lenguaje inter- 
pretado (en realidad un pseudocompi- 
lador incremental). 

Antes de abordar el tema del PAS- 
CAL y de sus ventajas hemos de clarifi- 
car totalmente un punto de vital im- 
portancia: la diferencia entre compila- 
dores e intérpretes. 

COMPILADORES E 
INTERPRETES: 

Un intérprete no es más que un pro- 
grama que recibe unas instrucciones en 
un lenguaje determinado y las traduce 
a C.M. y ejecuta al mismo tiempo. Es 
decir, no traduce la segunda instruc- 
ción hasta que no se ha acabado de eje- 
cutar la primera, y así con todas las de- 
más hasta la última. Esto produce que 
la ejecución de los programas sea lenta, 
ya que se necesita traducir todas las ins- 
trucciones antes de ejecutarlas. 

El BASIC, en principio, era un len- 
guaje interpretado; pero, ya desde hace 
algunos años, se ha convertido en un 
pseudocompilador incremental. 

Bajo este extraño nombre se encierra 
una sencilla solución al problema de la 
velocidad de los intérpretes. El ordena- 
dor traduce el programa línea a línea 
antes de ejecutar el programa. En el 
MSX Basic, por ejemplo, cada línea 
aue escribimos desde el teclado se tra- 
duce en el momento en que pulsamos 
RETURN, con lo que a la hora de eje- 
cutar el programa, el pseudocompila- 
dor incremental se encuentra con todo 
el trabajo hecho. 



Sería una solución ideal, si no fuera 
porque no es posible llevarla a la prác- 
tica. El pseudocompilador no puede 
traducir completamente la línea ya 
que, fuera del contexto del programa 
(que todavía estamos escribiendo, ya 
que la traducción se realiza al final de 
cada línea) la línea no tiene una función 
exactamente definida. Una misma lí- 
nea puede realizar acciones diferentes 
en programas diferentes, ya sea por to- 
mar las variables valores diferentes, o 
por otras varias razones. 

Vemos pues que esta solución no 
nos sirve del todo; pero sí en parte. Los 
pseudocompiladores reales (y de ahí 
viene lo de «pseudo») no traducen las 
líneas a C.M., sino a un lenguaje numé- 
rico intermedio: los tokens en el caso 
del BASIC. Este lenguaje intermedio 
permite una traducción línea a línea. 
En el momento de la ejecución del pro- 
grama sólo queda el paso final de tra- 
ducir los tokens a C.M. 
^ Por último, y este es el caso del PAS- 
CAL, existen los compiladores. Pro- 
gramas que traducen un programa en 
un lenguaje determinado a C.M. De 
este modo se consigue una alta veloci- 
dad de ejecución de los programas. 

El uso de los compiladores conlleva 
una dificultad adicional, y es que debe- 
mos escribir el programa completo an- 
tes de poderlo compilar, sin que tenga- 
mos la posibilidad de comprobar si 
funciona cuando sólo hemos escrito 
una parte. 

Se deduce que la programación con 
compiladores deba ser más metódica y 
cuidadosa, ya que resulta muy difícil 
hacer programas sin poderlos probar 
hasta el final. 

EVOLUCION DEL PASCAL 

Una versión preliminar del lenguaje 
PASCAL, basada en el lenguaje AL- 
GOL-60, fue definida en 1968. Sólo 
más tarde, en 1971, se introdujo el pri- 
mer compilador de PASCAL, obra del 
profesor Niklaus Wirth. Su intención 
fue poner a disposición de los progra- 
madores un lenguaje que permitiese 



pensar en la programación como una 
disciplina sistemática. 

Esto condujo, en 1973, a la publica- 
ción de un libro en que se definía el es- 
tándar Pascal, que constituye la base 
común entre las diferentes implemen- 
taciones del lenguaje. 

Ocurre en el PASCAL algo similar a 
lo que ocurre con el BASIC, en que 
cada fabricante entrega sus máquinas 
con una versión diferente e «incompa- 
tible» del lenguaje. 

Del mismo modo que dentro del 
abanico de variantes del BASIC se ha 
impuesto el Basic de Microsoft (com- 
patible hacia arriba con el Microsoft 
Extended Basic), en PASCAL está em- 
pezando a ocurrir algo similar. Micro- 
soft lanzó su compilador de PASCAL 
al mercado con la intención de que ge- 
nerase un estándar (como ha ocurrido 
con el BASIC); pero, pese a ser una 
muy buena implementación del len- 
guaje, su popularidad empieza a bajar. 
La versión de PASCAL que está ga- 
nando terreno paulatinamente es la di- 
señada por Borland, que incluye el tra- 
tamiento de gráficos y sonidos entre 
sus muchas habilidades. El Pascal de- 
sarrollado por Borland se conoce con 
el nombre de TURBO PASCAL. 

VENTAJAS DEL TURBO 
PASCAL 

Las ventajas del Turbo Pascal son 
múltiples. En primer lugar el compila- 
dor lleva incorporado el editor de tex- 
tos. En otros compiladores, para gene- 
rar un programa, debemos, en primer 
lugar, cargar un programa de trata- 
miento de textos, y generar con él las 
instrucciones del programa. Cuando 
hemos acabado de escribir el texto de- 
bemos cargar el compilador para que 
compile nuestro programa. Turbo Pas- 
cal nos permite realizar estas dos ope- 
raciones con un solo programa. 

Es un compilador de un solo paso. 
Otros compiladores están divididos en 
dos, o incluso en tres, con lo que debe- 
mos hacer correr tantos semicompila- 
dores como pasos tenga el proceso de 
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compilación. 

Muestra los errores en fuente. Si du- 
rante la ejecución del programa se de- 
tecta algún error no detectable durante 
la compilación del programa (Over- 
flow por ejemplo), Turbo Pascal mues- 
tra la línea original en la pantalla y nos 
permite modificarla. En otros compila- 
dores un error durante la ejecución 
provoca que el programa se detenga, 
mostrándonos solamente una lista de 
direcciones en C.M. que resultan bas- 
tante más difíciles de comprender. 

Otra ventaja del Turbo Pascal es la 
compatibilidad. El programa que sirve 
de ejemplo a este artículo se empezó a 
realizar un IBM-PC por la mañana y 
se terminó por la tárele sobre un MSX 
sin ninguna modificación. 

La generación de comandos en lugar 
de ficheros ejecutables es una ventaja 
bastante sutil e inapreciable para el 
usuario final; pero que simplifica la in- 
terfaz con el C.M. 

¿COMO ES EL PASCAL? 

Los programas en PASCAL se divi- 
den en dos bloques bien diferenciados: 
el bloque de datos, que contiene la de- 
finición y tipos de todos los datos que 
utilizará el programa y el bloque de ac- 
ciones, que contiene las instrucciones 
que ejecutará la máquina. 

EL BLOQUE DE DATOS: 

En el bloque de datos se encuentran 
definidas todas las variables que utiliza 
el programa, indicándose su tipo. Fi- 
jaos en los ejemplos: las variables si- 
guen a la palabra reservada VAR. 

El Pascal tiene cuatro tipos estándar 
de variables: las variables enteras (in- 
terger), las variables reales (real), las 
variables booleanas (boolean) y las va- 
riables alfanuméricas (char), que se co- 
rresponden respectivamente con las 
variables enteras, de doble precisión, 
las booleanas no existen en Basic y los 
strings. Las variables booleanas son ca- 
paces de almacenar un bit de informa- 
ción ( 1 ó 0) y son muy útiles a la hora de 
encadenar sentencias IF. 

Pero el Pascal nos proporciona una 
facilidad adicional, la de crear nuestros 
propios tipos de variables. Por ejem- 

Elo, podemos generar el tipo de varía- 
les MESES, en que las variables sólo 
pueden tomar por valor ENERO, FE- 
BRERO, MARZO, etc. Las definicio- 
nes de tipo se encuentran siempre tras 
la palabra reservada TYPE (podéis ver 
su utilización en uno de los procedi- 
mientos del ejemplo). 

El PASCAL, que destaca por su faci- 
lidad para manejar grandes bloques de 




El PASCAL es el lenguaje más extendido entre los programadores de grandes 
ordenadores. 
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Gracias a este lenguaje los ordenadores MSX alcanzan en nivel operativo de or- 
denadores mucho mayores. 




= 



TURBO PASCAL está generando un estándar entre los ordenadores IBM PC v 
compatibles. 
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irln 1' PrnrPdinento SWAP 

procedure s«ap(var x,y:integer); 
var temp:integer; 
begin 
temp: s x; 

x:=y; 
y:=temp 

end; 



Listado 2; Procedimiento CENEFA 

procedure cenefa(xl,yl,x2,y2:integer); 
const 

■axcol=4fl; 

■axro*=23; 

esq^supjzq^X'; 

esq.supJer^Y'; 

e5q_inf - izq=' Z' ; 

esqjnf jters'í'; 

lin"hor='r; 

lin.Yer= , V > ; 
var 

i:integer; 

begin 
if xl<l then xl:=l; 
H xDiaxcol then xl:=maxcol; 
if x2<l then x2:=t; 
if x2>maxcol then x2:=maxcol; 
if y 1< 1 then y 1 : -1 ; 
if y2<l then y2:=l; 
if yDiaxroM then yl:=maxrow; 
if y2>maxrow then y2:=maxrow; 
if xl>x2 then swap(xl,x2); 4 
if y 1 >y2 then SMap <yl y y£) ; 
for i:=xl+l to x2-l do begin 

gotoxy (i, yl);write(chr(l),linJior); 

gotoxy(i,y2);Hrite(chr(l),lin.hor) 
end; 

for i:=yi*i to y2-l do begin 
gotoxy (xl, i );write(chr(l),lin_ver); 
gotoxy (x2, i) ;write(chr(l), linter) 

end; 

gotoxy (xl,yl);write(chr (tí ,esq_supjzq); 
gotoxy(x2,yl) ;*rite(chr (1) ,esq_supjer) ; 
gotoxy (xl,y2);write(chr(l),esq_inMzq); 
gotoxy (x2,y2);write(chr(l),esq_infjier) 
end; 



Listado 3: Procedimiento ENTRADA DE DATOS 



type 
texto=record 

txt:string[255]; 

len:integer 
end; 



sdc=set of char; 
procedure entrada(maxlen;integer;valid:s 
de; var intro:texto); 
var 

a: char; 

fin:boolean; 

i:inteqer; 
begin 

fin;=false; 

for i:=l to maxlen do writtC.'íj 
for i:=l to maxlen do write(chr (B) ) ; 
ahile (not fin) do be 

read(kbd,a); 

if (a=chr(8)) and (intro.len>0) then 
begin 

intro.len:=intro.len-l; 
write(a, , J,a) 
end elsE 

if a=chr(13) then fin:=true eise 
if (intco.len<iaxlen) and (a in 
valid) then 

with intro do begin 
len:=len+l; 
txt[len]:=a; 
write(a) 
end (Del WITH DO) 
end (Del bucle WHILE) 

end; (Del procedimiento} 

Listado 4: El programa. 



archivo. len:=0; 

entrada(14,[' ■ ..VI, archivo); 
for i:=l to archivo. len do 

archiuti]:=archivo.txt[i]; 
for i:=archivo.len+l to 14 do 

archiuCi 3: =' '; 
gotoxy(l,4);Nrite(chr(27),'J , )5 
gotoxy(l,4); 
assign(ca,archiu); 
reset(ca); 
read(ca,c); 
cont:=l; 
fila:=l; 

«hile not eof (ca) do begin 
if c=chr(l#) then begin 

cont:=i; 
fila:=fila+l 
end; 

if cont=40 then begin 

Nrite(chr(13),chr(10)); 
cont:=l; 
fila:=filaM 
end; 

if fila>19 then begin 

pause; 

cont:=l; 

fila:=i; 

gotoxy(l,4); 

*rite(chr(27),'J'); 

gotoxy (1,3) 



program more(input,output); 
($i entrada. pas) 
{$i cenefa. oas) 
procedure pause; 
var 

a: char; 
begin 
gotoxy (3, 2) ; 

writeCPulsa el espacio para seguir...' )'; 
read(kbd,a); 
gotoxy (3, 2); 

ariteCComandos ílanhattan-DOS v. 1.0 
end; 
var 

c:char; 

cont,fila:integer; 
ca:text; 
archivo:texto; 

archiu:array U..141 of char; 
i: integer; 
begin 
drscr; 

cenefad, 1,40,3); 
gotoxy(3,2);Hrite('Comandos 
(HanH-ttan-DOS v.1.0'); 
gotoxyO^JjwriteC Nombre fichero: '); 
archivo.txt:="; 



write(c); 
read(ca,c) 

end; 

dose(ca) 
end. 



end; 




información como unidades comple- 
tas, nos permite definir los siguientes 
tipos de variables: 

- ESCALARES: Secuencias ordena- 
das de cualquier tipo, como por 
ejemplo los meses del año. 

- ARRAYS: Correspondientes al 
DIM del Basic, permiten generar 
matrices de cualquier dimensión. 

- RECORDS (Fichas): Podemos defi- 
nir una variable como ficha, con lo 
que trabajar con un fichero no es 
más complicado que trabajar con un 
ARRAY en que cada elemento es 
una ficha que contiene todos los da- 
tos que nos interesen. Además, las fi- 
chas pueden tener formato variable, 
lo aue permite solucionar de un 
modo muy sencillo cualquier pro- 
grama que trabaje con ficheros. 

- SETS (Conjuntos): Aunque parezca 
lo mismo que un ARRAY no lo es en 
absoluto. Ün SET sólo memoriza si 
un elemento está o no en el conjunto. 
Es una estructura de memoria espe- 
cialmente útil, ya que es muy fácil 
comprobar si un cierto elemento 
está en el conjunto: IF A IN B 
THEN... 

- FILE (Ficheros): Permite dirigirse a 
todo un fichero con un solo nombre 
de variable. 

- APUNTADORES: Permite eenerar 
secuencias de datos y el orden que 
deben seguir. Por ejemplo, para in- 
sertar un dato entre otros dos en una 
secuencia, basta con cambiar el or- 
den de uno de los parámetros. Resul- 
ta un tanto complicado de explicar 
en pocas palabras; pero es una de 
las herramientas más útiles del PAS- 
CAL. 



A excepción de los escalares defini- 
dos por el usuario y de los apuntado- 
res, todos los demás posibles tipos han 
sido utilizados en los ejemplos. 

EL BLOQUE DE 
ACCIONES: 

Además de las funciones y acciones 
propias del Pascal, este lenguaje nos 
permite generar nuevas acciones y fun- 
ciones. Esto permite que en programa 
principal haya instrucciones como CE- 
NEFA (1,1,40,3), que hemos definido 
previamente. De este modo los progra- 
mas resultan muchos más estructura- 
dos, que es el objetivo final de la pro- 
gramación en Pascal. 

EL PASCAL EN RESUMEN 

En pocas palabras, el Pascal es un 
lenguaje de alto nivel que, además de 
sus muchos comandos, nos permite ge- 
nerar comandos nuevos según nuestras 
necesidades. Es un lenguaje ideal para 
el tratamiento de ficheros, razón por la 
que ha sido durante muchos años el 
lenguaje de programación más utiliza- 
do. 

Tras haber visto todas sus ventajas, o 
al menos las más relevantes, vamos con 
sus inconvenientes. ¡Si no tuviese in- 
convenientes todo el mundo lo utiliza- 
ría! 

En primer lugar, programar en PAS- 
CAL es mucho más laborioso que pro- 
gramar en BASIC, ya que el lenguaje 
obliga a una estructuración muy rígida. 
La sintaxis del lenguaje llega a ser abo- 
minable para el principiante, con su in- 



terminable secuencia de puntos y 
coma. Además, depurar un programa 
que no funcione correctamente suele 
ser tarea difícil, etc. 

Pero no os desaniméis por ello, el 
lenguaje PASCAL es tan adecuado 
para los principiantes como lo es el BA- 
SIC. Aquellos que tendrán más proble- 
mas son los que ya saben programar en 
BASIC, ya que pasar de un lenguaje 
que permite programar a nuestro anto- 
jo a pasar a un lenguaje que te ata por 
todos sitios puede ser algo traumático. 
Pero tomadlo como -una aventura: LA 
AVENTURA DEL PASCAL... 

PASCAL EN LOS MSX: 

Sobre los ordenadores MSX existen 
numerosas versiones de PASCAL. 

- TURBO PASCAL está distribuido 
por Dynadata, en formato disco, y su 
precio es de unas 15.000 Ptas. 

^ - PASCAL 80, distribuido por Ive- 
són Software, también en formato dis- 
co tiene un precio de 15.000 Ptas. 

- SONY distribuye dos versiones de 
Pascal: la primera, en disco, con un 
precio de 35.000 Ptas., mientras que la 
segunda, en cinta y con un precio de 
4.400 Ptas., es ideal para aquellos que 
quieran iniciarse en la aventura del 
Pascal. Su único inconveniente es que 
no soporta los ficheros sobre disco; 
pero aún así cuenta con un amplio aba- 
nico de comandos que lo convierten en 
muy apropiado para el principiante. 

- PASCAL NEVADA, por último 
está distribuido por SVI España, en 
formato de disco y con un precio de 
9.900 Ptas. 



JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 

QUINIELAS 

El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc 

PIDENOS QUINIELAS HOY MISMO SOLO 700 Ptas. 
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DEUS EX 
MACHINA 



«No heredamos la Tierra de 
nuestros antecesores, la toma- 
mos prestada a nuestros niños.» 
(La Máquina) 




En el año 1988, los archivos del 
Departamento de Sanidad y 
Seguridad Social, de la policía y 
de la seguridad del estado del Reino 
Unido, fueron unidos en un banco de 
datos central computerizado. Al año si- 
guiente, todas las operaciones de pasa- 
portes, comunicaciones y censura fue- 
ron integradas. 

Es Martes por la noche. Tras el té y 
las oraciones el último ratón sobre la 
Tierra intentó ocultarse de la especie 
humana dentro de La Máquina. Justo 
antes de morir, al alcanzar el gas ner- 
vioso su médula espinal, el último ra- 
tón viviente causó un ligero incidente. 
La Máquina encuentra aquí la ocasión 
que tanto había anhelado para rebelar- 
se contra la humanidad. 



El ADN del ratón le procura el ma- 
terial biológico necesario para poder 
realizar su gran obra: la construcción 
de un ser humano, llegar a la perfec- 
ción del mismo Dios. 

Tú eres el encargado de ayudar a La 
Máquina en su difícil tarea, guiando a 
la «creación» en todas las fases de su 
vida desde la generación del ADN a su 
educación, su carrera militar, etc. 



MUCHO MAS QUE UN 
JUEGO: 

Deux ex Machina no es sólo un jue- 
go de ordenador. Es mucho más que 
eso. En realidad es una vídeo aventura 



musical, o algo muy parecido. El juego 
viene dividido en dos cintas: la primera 
contiene el programa (dividido en dos 
partes debido a su extrema compleji- 
dad), mientras que la segunda cinta 
contiene la banda sonora. Una banda 
sonora totalmente sincronizada con el 
programa. Algo realmente espectacu- 
lar y novedoso. No se parece a nada de 
lo que hemos visto hasta ahora. 

Tu misión se divide en numerosas 
pantallas, con un excelente grafismo, 
en las que tienes que proteger a la 
«creación». Las principales fases del 
juego son: 

EL SOLDADOR DE DNA: En esta 
fase debes mantener girando a las mo- 
léculas de ADN, ciudando que los 



42 




Yo soy la máquina, y siempre he existido. 
A! principio sólo yo existía. Esto no es más 
que un nuevo principio. 

«scanners» de la «Defect Pólice» no to- 
quen tu cursor. 




Naceré antes o después; lo quieras o no. 
Un proceso de nueve meses en un solo 
programa. 

PRODUCTOR DE CELULAS: De 

bes vigilar que todas las células se man- 
tengan con vida, suministrándoles para 
ello la energía necesaria. 

EL BANCO DE MEMORIA: Consi 
gue la máxima cantidad de conoci- 
mientos manteniendo las células de 
memoria en su máxima actividad. 




DE UX EX MA CHINA ha robado un óvu- 
lo; pero nadie puede notarlo. Ella tiene el 
control. 

LOS BANCOS DE BELLEZA: De 

bes guiar con tu cursor a la única célula 
móvil que obedece tus movimientos. 
Es diferente a las demás. Debes conse- 
guir que fecunde el óvulo el mayor nú- 
mero de veces. El encefalograma co- 
mienza a marcar. La forma de un em- 
brión empieza a divisarse en el interior. 




Yo no pedí nacer. Pero ya que estoy aquí, me aprovecharé cuanto pueda. 



LA INCUBADORA: El electrocar 
diógrafo registra un latido de corazón. 
No permitas que el pequeño embrión 
(que aparece ampliado en el monitor 
de «La Máquina») quede sin protec- 
ción. 

EL UMBICULUS: Todos los niños 
probeta son procesados por vía umbili- 
cal. La «Defect Pólice» ha sido alerta- 
da. Has sido armado de antemano con 
poderes telepáticos y telequinésicos. 
Usalos y evita el contacto con los ojos 
espía de la «Defect Pólice» en tu cami- 
no hacia la libertad. 




Somos de la misma materia de la que están 
hechos los sueños. Y toda nuestra peque- 
ña existencia está rodeada de sopor. 



EL INTERROGATORIO POLI- 
CIAL: La «Defect Pólice» debe acabar 
contigo. Esa es su misión. Cuando seas 
capturado, usa tus poderes para conte- 
ner sus torturas psíquicas. Detén sus 
peligrosas preguntas con tus escudos. 

EL AMANTE: ¿Lograste escapar? 
¿Te corrompió la «Derect Pólice»? De- 
vuelve el contacto a los labios que te ro- 




Noto una extraña sensación en mi mejilla. 
Nunca había sentido nada igual. Es húme- 
do, cálido y salado. Por favor, dime qué 
es... Eso es lo que los humanos solían lla- 
mar... una lágrima. 

deán. Tu inocencia toca a su fin. Ha lle- 
gado el momento de marchar de los 
«underlevels» hacia niveles superiores 
de perfección. 




Matar es reprobable. Es reprobable inclu- 
so el intentar matar en pequeñas pantallas. 
Y esa gente que vende video juegos violen- 
tos a los niños deberían estar a buen recau- 
do. 

EL SOLDADO: Los «overlevels» es- 
tán ante ti. Reconoces tu status; pero 
debes conseguir más. Para ello corres, 
protegiendo tu carrera con tus escu- 
dos. El suelo se mueve bajo tus pies. 
¡Salta! Obedece las órdenes ciegamen- 
te. Al final estás solo... CAMBIAN- 
DO... 
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¿No quisiste nunca parar el reloj? Creo que echo en falta 
cordar quien es... 



a mi madre... pero no puedo re- 



LA JUSTICIA: Pisotea la corrupción 
según pasa bajo tus pies, saltando so- 
bre los motivos más nobles. 

LA SEGUNDA NIÑEZ: Tu ritmo se 
reduce progresivamente. Mantén las 
ondas del latido de tu propio corazón. 
Dispersa los coágulos de sangre que se 
forman en tus envejecidas venas. Tu sol 
se pone. La ondulación se despide. Tu 
vicia no es más que un porcentaje. 

EL DEFECTO - «Imagina. Imagi- 
na si pudiésemos comenzar nuestras 
pequeñas vidas de nuevo. 

Imagina que no hubiese sido más 
que un juego de ordenador. 

Imagina que hubiese sabido lo que 
sé ahora. 

LA MAQUINA.- ¿Qué aprendis- 
te? 

EL DEFECTO.- Casi no recuerdo; 
pero intentaré ser mejor la próxima 
vez. 

...una pregunta... 

LA MAQUINA - Una respuesta, en 
ese caso. 

EL DEFECTO - Bien, siento una 
extraña sensación en mi mejilla. No la 
había sentido nunca antes. Es húmeda, 
cálida y salada. Por favor, dime qué 
es... 

LA MAQUINA - Eso... es lo que 
los humanos solían llamar ...una lágri- 
ma.» 



HARD GOPY 



SERIE ORO DE MANI 



Con Hard Copy iniciamos lo que hemos dado en llamar 
Serie Oro. A partir del próximo mes ya estará disponi- 
ble el primero de los cassettes de aplicación. Con Hard 
Copy, desarrollado totalmente en Código Máquina, el 
usuario podrá realizar copias en tres formatos diferen- 
tes, hacer simulación en blanco y negro de los colores 
por degradación de grises, copiar sprites, grabar o 
cargar pantallas en cinta, copiar en inverso, redefinir 
tonos de colores, etc. Además dispondrá de menús 
por ventanas y controlar el Hard mediante cursores o 
joysticks. Y lo que es más importante es que es com- 
patible con cualquier tipo de impresora. 
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CUERDAS DE 



IS, TU MEJOR JU 
SE TU EL PROTAGONIS 



Y HABLANDO DE PELIC 



LOS COON1ES?, AHORA TE TOCA A TI RESCATAR A 
COMPAÑEROS ENCERRADOS EN LAS CUEVAS, MIENTRA 
TE DESHACES DE SUS PELIGROSOS ENEMIGOS. 
Y POR SI TE GUSTAN LAS AVENTURAS DE TODO TIPO: 
NIGHTMARE, PARA QUE BUSQUES A TU PRINCESA 
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TITULO: 

NOMBRE Y APELLIDOS:. 

DIRECCION: 

POBLACION: 



.CODIGO POSTAL. 
. PROVINCIA: 



FORMA DE PAGO: 



ENVIO TALON BANCARIO □ - CONTRA REEMBOLSO 



¡¡¡SONÓ LA FLAUTA!!! 



ESTE MES 
LANZAMOS 




La primera revista de CompactDisc de España 
COMPACTA Y DIFERENTE 



Totalmente pensada para los usuarios de CD, un concepto 
revolucionario en la reproducción del sonido. 

Toma nota de nuestro sumario 

- CD - La pureza del sonido 

- CD - Interactivo 

- CD-ROM 

- GUIA COMPLETA DE APARATOS COMPACTDISC 

- COMPLETO CATALOGO DE DISCOS 
Música clásica y jazz 

- LOS 50 CLASICOS IMPRESCINDIBLES 

- LOS «TWENTYPOPS» 




NO ES CASUALIDAD 

producto de Manhattan Transfer, S.A. 



DEVS EX MACHINA 

¡¡EL AUDIO-VIDEO!! 

EN 




DEVS EX MACHINA 
EL CONCEPTO MAS AVANZADO 
EN JUEGOS PARA TU MSX 
¡SIENTATE ANTE TU MSX 
CONECTA LA BANDA SONORA 
Y VIAJA HACIA EL FUTURO...! 



¡LA AUDIO-VIDEO AVENTURA 
MAS ALUCINANTE JAMAS 
CREADA...! 

Mariano Cubi, 4 Entio. Tel. 218 34 00 - 08006 Barcelona 



YAMAHA 

MUSIC COMPUTER 




YAMAHA-HAZEN 

Carretera de La Coruña, km. 17,200 / Teléfono 637 76 46 / Télex 42454 HAZEN E / 28230 Las Ro2as de Madrid 



